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SoftSide DV, the magazine 
of the future, is here! »« 



If your computer could pick a 
magazine, wouldn't it prefer one 
in its own language? Now 
there's one available. . ■ i 

SoftSide DV . 

is an enhance- * , 

ment of the » ' . 

SoftSide 
you have 
in your 
hands. 




Complete programs of 
every conceivable type, 
ongoing data bases, 
modified languages and 
l-$tring, the video simulator — all ' 
of these are part of SoftSide DV. 
Feel as though you're missing 
something? You are! But, you » 

needn't any more. 

Introductory offer — if you 
subscribe to S-80 SoftSide DV before ."-l? 
September 30 at the regular price of $125 ' \»^ ' 
per year ($10.42 per issue), you'll receive ' ' -'^ 
the September 1981 disk, including . ' 

NEWBASIC, absolutely FREE! Or, if you'd like ^ . ..,^ 
to look us over, try the September issue only, ' , " ' 
for $12.95 . ' . 

For your convenience, we offer an installment 
payment plan for Visa and Mastercard holders: 
You pay only $32.50 per quarter (includes a $5 bill- 
ing charge). For orders outside the USA, please add 
$18. If you currently receive SoftSide, we'll credit the 
remainder of your subscription to your SoftSide DV 
order. 

We're developing SoftSide DV for one system at a time. 
The S-80 version is currently available with the Atari and 
Apple editions soon to follow. In the meantime, new 
subscribers to the disk version for Atari and Apple will 
receive a $10 SoftSide Selections gift certificate in addition to 
the monthly magazine and disk containing BASIC program 
listings. 
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Expand Your Computer's Vocabulary! 




The BASIC Handbook has never been this complete. 

The Expanded Second Edition gives you over 
twice as much information as the First Edition, ex- 
plaining nearly 500 BASIC words. The handbook 
features special sections on Disk BASIC, TRS-80 Ex- 
tended Color BASIC, Atari BASIC, Acorn Atom 
BASIC, Tektronix BASIC and "Converting Programs 
From One Computer For Another." 

The computer industry has experienced tremen- 
dous change in the last three years. Hundreds of 
new computers have been introduced since The 
BASIC Handbook was released in 1978. The Second 
Edition meets the challenge head-on, documenting 
every significant BASIC word used by every BASIC- 
speaking computer. 

This new Edition makes program conversion easy. 
Its widely acclaimed feature, "If Your Computer 
Doesn't Have It" has been expanded. Each BASIC 
word is alphabetically listed, with Test Programs 



and Sample Runs. Variations in Usage combine with 
Alternate Spellings to totally cross-reference each 
BASIC word. 

INTRODUCTORY SPECIAL - 10% OFF! 
The BASIC Handbook by David Lien 
(Reg. $19.95) $17.95 

(Please allow six weeks for delivery) 

35kction J 1 

6 5outh street Milford NH 03055 
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Do you offer products or services that should be of interest 
to the computer hobbyists in your area? OR, do you possess 
the skills to repair computers, offer consultation, organize 
users groups, but don't really know how to get started? 
Well, the first step is locating potential customers, efficiently 
and inexpensively. We at SoftSide can help. 

Tap a responsive market with SoftSide's mailing lists. We've 
compiled a list of close to 80,000 names of individuals who 
have bought computers, peripherals and software or who have 
inquired about these items through ads in national magazines. 
Now you can access selections from this list to advertise the 
services you now provide or are considering. 

Most sources of lists require a minimum order of 5000 
names. SoftSide's list is available to you in groups of 1000, ar- 
ranged by zip code, for $100. 

We'll send you the list of people in your area on 4-up Cheshire 
labels or on pressure-sensitive labels (for an additional $1 per 
100), ready for you to mail with your promotional flyer to poten- 
tial customers. Just let us know which area you wish to cover 
with your mailing. 

Our lists are a good start toward advertising locally — you'll 
reach the people who will be responsive to your offers. It's 
more efficient than the Yellow Pages, less expensive than 
newspapers. 

We'll put you in touch with the right people. Between our 
connections and your talents, we can make a great combina- 
tion! 

For a distribution of available groupings of names in your 
area, send a self-addressed stamped envelope to: 

SoftSide Mailing Lists 

6 South Street 

IVIilford, NH 03055 

Labels are authorized for one-time use only. 
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Now you can continue 
to play this popular game 
even after you run out of 
quarters! Hi-Res arcade 
quality game pits the 
player against an elusive 
alien flying saucer. Use 
the game paddle to steer 
and fire your laser 
weapon. But beware: the 
alien aircraft moves fast 
and in a random way. 
Sound effects add another 
dimension to the 
enjoyment of this 
amusement. (Sound 
requires external 
amplifier.) 



S-80, 16K, 
Machine Language 

Cassette $9.95 

S-80, 32 K, 

Machine Language 

Disk $14.95 
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ATARrSOFTWARE 

nilACY^. 

THIS (lAME IS OVER 



ATARI® has led the industry in the development of video games 
such as ASTEROIDS™ and MISSILE COMMAND.™ The outstanding 
popularity of these games has resulted from the considerable investment 
of time and resources which ATARI has made in their development. 
We appreciate the worldwide response from the videophiles who have 
made our games so popular. 

Unfortunately however, some companies and individuals have copied 
ATARI games in an attempt to reap undeserved profits from games 
that they did not develop. ATARI must protect its investment so that we 
can continue to invest in the development of new and better games. 
Accordingly, ATARI gives warning to both the intentional pirate and to 
the individuals simply unaware of the copyright laws that ATARI 
registers the audiovisual works associated with its games with the Library 
of Congress and considers its games proprietary. ATARI will protect its 
rights by vigorously enforcing these copyrights and by taking the appro- 
priate action against unauthorized entities who reproduce or adapt 
substantial copies of ATARI games, regardless of what computer or other 
apparatus is used in their performance. 

We ask that legitimate software developers cooperate with us to 
protect our property from any form of software piracy, imitation or infringe- 
ment. ATARI is currently offering copyright licenses for a limited number 
of its games to selected software developers. If you happen to be selling 
a software product which performs a game similar to any ATARI game 
(such as a game created for a home computer), please contact us 
immediately. Write to the attention of: Patent Counsel, ATARI, Inc., 
1265 Borregas Ave., Sunnyvale, Calif. 94086 



A 

ATARI 

^^ A Warner Communications Company 
©1981, ATARI, INC. 




Randal L. Kottwitz 

Amuse — a verb — To occupy in an 
agreeable, pleasing, or entertaining 
fashion. 

Computers as amusement — a much 
more difficult phrase to define. As the 
computer weaves itself ever more firm- 
ly into the fabric of our lives, we are 
discovering our former definitions for 
work, education and amusement no 
longer seem to fit so well. As I conceive 
of my computer in relation to its 
amusement value, I realize that I am 
equally as entertained by the ease with 
which I can enter and edit this column 
with my word processor as I am by bat- 
tling it out with the Klingons in any 
version of Star Trek. Work becomes 
play. 

Educators are breaking into new 
frontiers with compUcated computer 
simulations which allow their students 
to experience the actual decisions of 
life rather than depending on 
background information, already out- 
dated. The creative processes of the of- 
fice are encouraged through complex 
computer controlled games. The 
military is instaUing "arcade style" 
simulators on its bases to encourage 
improvement of hand-to-eye coordin- 
ation. All of these might have been 
considered strictly "amusement" only 
a few years ago and are now serious ap- 
plications to ease and improve the pro- 
cess of learning. 

Certainly, all of these uses of the 
computer do "occupy in an agreeable, 
pleasing or entertaining fashion," but 
combine that occupation with an im- 
portant and productive function. The 
hidden word with the most important 
impact there is "productive." Sudden- 
ly we find that our amusement can pro- 
duce very practical results. Sociologists 
have predicted that the future holds a 
great deal more "leisure time" than 
that to which we've become accus- 
tomed. My impression of that predic- 
tion has always been that such an in- 
crease would lead to a lessening of the 
personal productivity level. I am now 
forced to reconsider the idea in terms 
of this melding of "leisure" and 
"working" time, as precipitated by the 
"information/computer revolution." 

This month, SoftSide brings to its 
pages a concept in programming that 
may substantially speed the "crossing 
of the lines" from entertainment to 
employment to education. The I-$tring 
concept driving Envyrn^'*^ makes the 



computer substantially more "user 
friendly." Vast amounts of complex 
information can be stored in easily ac- 
cessible units for later recall. Those 
units may then be assembled in any 
order over a virtually unlimited area. 
Physical interrelationships may be 
easily simulated and tested. Infor- 
mation may then be observed with 
three degrees of accuracy, allowing 
quick overscan of large volumes or the 
study of minute detail in small quan- 
tities. These concepts may seem rather 
vague to you — don't feel alone! In the 
months I-$tring has been developing at 
SoftSide, the staff has looked to the 
project with glazed eyes. We were all 
aware that we were working on 
something of great importance, but the 
magnitude of its influence and appli- 
cations has only recently become 
crystal clear. 

I-$tring is a concept — an important 
one. The technique is one which can 
make child's play out of storage, 
manipulation and observation of data. 
EnvyrnT""^ is the tool which will result, 
based on the concept of I-$tring. With 
that tool, educators, businessmen and 
entertainers will be able to easily pre- 
sent their "audience" with complex 
material in a simplified manner. 
Students will be presented with 
universes to challenge their imagin- 
ations and then allowed to create ones 
of their own. Detailed inventories will 
be inspected by use of a map of the 
storage area on a screen. Communities 
will be planned by allowing the 
physical elements of the proposed 
plans to interrelate, with the computer 
exposing possible problems, years 
before they might otherwise be 
detected. Game authors will have a 
new world opened to them. Never 
before has this approximation to 
reahsm been available and the ease of 
application will allow anyone to write 
complex entertainment software 
without complex programming skills. 

All of these things will "occupy in an 
agreeable, pleasing or entertaining 
fashion," yet make productivity and 
use of information an easy option. The 
day is approaching when the difference 
between work and play is only a "point 
of view." Read the material on I-$tring 
and Envyrn^"^ in this issue carefully, 
you may then agree that the term 
"amuse" may not be so easily defined 
for much longer. Q 
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STAR 
TREK III.5 



Now with Sound 

Capability and 

Increased Speed 

of Execution. 



by Lance Micklus 

You are in command of the 
starship Enterprise and her 
compiement of 371 officers and 
crew. You must enter and 
explore the Omega Vi region of 
the galaxy with its 192 
quadrants containing star 
systems and planets (a few of 
which are habitable). 
Astronomical hazards such as 
pulsars, Class stars, and black 
holes are known to be present, 
so the utmost care is needed. 

Star Trek III. 5 includes, 
playboard 8 by 8 by 3 quadrants, 
weapons system of Phasers and 
Photon Torpedos; Warp and 
impulse power systems; Science 
and Ship's computers; Long and 
Short Range sensors; Damage 
Control and Status reports; and 
20 Klingon battle cruisers, and 
100 stars, planets, black holes, 
and pulsars. 



Atari 32K Tape $19.95 

S-80 16K Tape $14.95 

S-80 32K Disk $15.95 
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ADVERTISING 

Dear SoftSide, 

As far as I'm concerned, "The Sensuous Pro- 
grammer" has hit the nail on the head with the 
comments made in the July issue concerning 
"tacky" programs. When it comes to buying 
advertised programs, nothing turns me off faster 
than an advertisement replete with spelling and 
grammatical errors. 

As a prospective mail-order purchaser, I must 
rely on advertisements published in periodicals, 
or received by direct mail, to gain an understand- 
ing of a program's capabilities. If the creator of 
the program, or those selling it, cannot write an 
ad without errors, I fear the program (which is 
certainly more complex than the ad) will be 
similarly flawed. SoftSide's ads are usually error- 
free but I have seen ads printed elsewhere where, 
month after month, the errors remained uncor- 
rected. 

My experience, while not extensive, suggests 
that purchased programs with spelling errors in 
their advertisements, introductions, or instruc- 
tions (in the manuals or programs themselves) 
are deficient in other ways as well. Of course, 
there's no assurance that a well-written, properly 
spelled advertisement means that a program is 
flawless or that it accomplishes all that it claims. 

Bruce E. Baker 
Jericho, NY 

PIRACY 

Dear SoftSide, 

I'm in agreement with Scott Adams' reply to 
Eli Passin that to give away software hurts the 
hobby (July issue.) If anyone copies a program 
that he has purchased, for backup purposes, he 
obviously thinks highly of that program. He feels 
it was worth the price and he doesn't want to lose 
it if his computer decides "eat it." If it's not 
worth the price, why waste media space to make 
a copy? 




Mr. Passin feels it is fine to give programs to 
friends. My question to Mr. Passin would be, 
"How many of your own programs, written by 
you, do you give away?" 

What is a give-away program worth to the per- 
son receiving it? More than likely, the amount 
paid — NOTHING. Showing a person a pro- 
gram you feel is excellent should have one of two 
reactions. Either he is impressed and feels the 
purchase price is a good value or he feels you 
have wasted money and good disk space. In the 
first case, yOu have given your friend something 
to look forward to — buying an excellent piece 
of software. In the latter case, why would they 
want to see the program again, least of all have a 
copy? 

I feel everyone at our local user's group to be a 
friend of mine. Now, using Mr. Passin's theory 
of piracy and consumer's rights, I have just pur- 
chased a program that I feel is the greatest thing 
since sliced bread. It's so good, I want all my 
friends to have a copy of it. There are about 100 
members in our user's group but only half show 
up at any given meeting. 1 go down to the local 
computer store and buy five boxes of diskettes. I 
spend a night making fifty copies of this great 
program. 

I am not a wealthy man, so I feel I should be 
reimbursed for the money 1 put out and the 
energy (personal and electrical) that I have ex- 
pended. So I start to figure. ..$32 a box for the 
disks plus 4% sales tax... about four hours time 
to make fifty copies. I decide to charge my 
friends $5 each for what is now an excellent pro- 
gram, divided (or cheapened) by a factor of fifty. 
According to Mr. Passin, I am a pirate but I also 
fit into his definition of proper usage! 

To all software pirates: when you find an ex- 
cellent program, why not learn from it and write 
your own version? You can sell it, give it away, 
throw it away, or burn it! 1 feel this is a fair solu- 
tion but I also believe many pirates are far too 
lazy to do this. 

If someone is attending a group or club 
meeting, and someone tries to pull a piracy act, 
just call the police. If you're worried about the 
dime, I'm sure the author of the pirated program 
would be overjoyed to pay for the call! 

Dennis S. Lewandowski 
Dearborn, MI 



Dear SoftSide, 

In reference to the June issue (page 47), Ed 
Ting had a good idea which I've used extensively 
since then. I have found that even the cheapest 
tapes ($ .65 for 3: cycle 60:Sears) have plastic 
tabs that slide out to release the tape from the 
center reel. These tabs snap back in to secure the 
new tape. No messy splicing is necessary. 

Be sure to tape your program first — then 
transfer it to the new cassette. That way, you get 
only the tape you need. I use both BASF and 
TDK normal bias. Both work quite well and my 
two-year old loves to play with the cheap tape 
that gets thrown away. 

Charles T. Vono 
Beale AFB, CA 

Dear SoftSide, 

I've been a subscriber to SoftSide on cassette 
since December of 1980. It has been an ex- 
perience of monthly frustration and anger — in 
that order. 
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Upon receipt of your initial tape, I found 1 was 
unable to load it in my Model I, 48K, TRS-80 
computer. Assuming the worst, I returned the 
defective tape for a replacement. The replace- 
ment was a duplicate — no go. 

As the months passed, I noted that all tapes I 
received refused to load without going through a 
volume-sensitive LOAD procedure for each pro- 
gram segment. None responded to the prompt 
"PROGRAM 1, 2, 3, etc.." 

R. E. Noble 
Prince George, VA 

Editor's Reply: We are acutely aware of the 
cassette loading problems experienced by S-80 
owners and we are experimenting with several 
methods of solution. The S-80 is notorious for 
loading problems with dropped bits; and misread 
data is all too common. The Pocket Tape Dub- 
ber (SoftSide, November 1980, page 85) may 
help. 

DATA BASE 

Dear SoftSide, 

I enjoy SoftSide very much and want it to keep 
coming. The new format is great! Keep up the 
good work. 

I would like to make one request. Would it be 
possible for you to publish the complete text of 
"DATA BASE" that appeared in several issues? 
I now have it working for me with the exception 
of the multiple-search routine. I would very 
much like to see the complete and final text. 

Again, thanks for a great computer/hobbyist 
magazine. 

Robert Gore 
Bloominglon, IL 

Editor's Reply: You have your wish. See the 
complete Apple version in this issue with Atari to 
follow next month. 

ROSES AND THORNS 

Dear SoftSide, 

You have to be out of your minds! You are 
going to sell me six adventures, on diskette, for 
$45. That is $7.50 per diskette. The disk alone is 
worth $3, so you are selling the program for 
$4.50. You have to be crazy to sell an adventure 
program for that price. However, 1 have never 
been one to pity, so here is my $45. If you are 
going to sell for that price, I'll just take advan- 
tage and buy it. 

Seriously, this is far better than publishing 
them in the magazine. After you've typed in an 
adventure, it loses much of its pleasure. 

James Hogue 
Levelland, TX 

Dear SoftSide, 

Since you seem to ask readers for their com- 
ments, I feel the need to make one of my own. 1 
don't like magazines — with one exception — 
SoftSide. It has been a year since 1 first pur- 
chased my Apple and took out a subscription to 
SoftSide. During that time, I have watched, with 
interest, the process of evolution that has been 
going on. I like it. It seems there has been a con- 
tinuous effort to improve the quality of the 
continued on page g 



TAKING THE RANDOM OUT OF 
S-80 RND 

Have you ever tried debugging a pro- 
gram that uses the RND function? If 
so, you know how hard it can be since 
the random numbers will be different 
every time the program is run. This 
problem can be easily eliminated. 

S-80 BASIC maintains a three-byte 
seed number in RAM which is used to 
calculate random numbers. By placing 
constant values into these locations at 
the start of a program, you will get the 
same sequence of random numbers 
every time it is run. The following is a 
sample program using this technique: 

10 POKE 16554, l:POKE 

16555,2:POKE 16556.3 

20 CLS 

30FORT=1 TO 40 

40 PRINT @RND (960), "*"; 

50 NEXT T 

90 GOTO 90 

Every time this program is run, it 
will produce the same pattern, despite 
the use of the RND function in LINE 
40. If you delete LINE 10, the program 
will produce a different pattern each 
time it is run. 

Rich Bouchard 
Amherst, NH 

SOUND FOR TRS-80 

In the June issue, Shane Causer sug- 
gested that TRS-80 users could have 
sound by using a PRINT#-1," com- 
mand. This outputs 255 bytes of binary 
zeros to the cassette player (or your 
audio amplifier.) This is the same 
leader that precedes a program saved 
on tape. 

It is possible to get different sounds 
by printing something other than a null 
string ("). One method is to send out a 
string in a literal (defined within quotes 

PRINT # -1 , "XXXXXXXXXXXXX- 
XXXXX 

XX"). 

This involves a lot of typing. A better 
method is to use the STRINGS com- 
mand. As an example, use: 
PRINT#-1,STRING$(255,255), or 
PRINT#-1,STRING$(255,0) 
The first one will generate the 255 bytes 
of zeros (there is no way to get rid of 



these) and then 255 bytes of ones. This 
results in the purest tone available 
through this method. The second 
method will generate a total of 510 
bytes of zeros being sent out. 

To understand why this happens, 
remember that the TRS-80 outputs 
data in a serial fashion — in a string of 
ones and zeros. All bits sent out have a 
start pulse. These come two 
milliseconds apart. "One" bits have a 
second pulse, one millisecond after the 
start pulse. A zero bit has no second 
pulse. When many ones are strung 
together (as when outputting a "255"), 
you get a smooth series of pulses (start 
pulse/"one"pulse, etc. ) When ones 
and zeros are mixed, the series of 
pulses is not as smooth and the tone 
sounds raspier. 

Note: see pages 46 and 47 of the 
"Technical Reference Handbook" for 
a more detailed explanation of how the 
cassette port works. This includes a 
graph of the waveform of the output 
signal. 

Geoff Dunn 
Lenox, MA 



BOWLING 

There is a slight problem with the 
Apple "Bowling" program (November 
1980.) No sound occurs for the first 
ball of the first frame. This is fixed by 
moving LINE 311 to LINE 7. 

Sound can be added to "Collision" 
(November 1980) with the following 
changes/additions : 
1014 SC = : RK-0 : PRINT 
CHR$(7);CHR$(7);CHR&(7) 
225 SOUND = PEEK(- 16336) 
-PEEK(- 16336) 

Sound can be added to "Dogfight" 
(June 1980) with this addition: 
3015 SS = PEEK(- 16336) 
-PEEK(16336) 

Adding the following line to "Space 
War" (Apple Edition, April 1980) will 
cause the opponent's energy level to go 
to zero when it is hit. 
605 W(NOT I) = 

The Applesoft music routine in the 
article, "Programming Hints," (Apple 
Edition, June 1980, page 65) doesn't 
work because "VAL" is a reserved 
word. Use "VL" instead. 

Michael Ching 
Honolulu, HI 
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SLIGHT MODIFICATIONS TO 
FORMAT DECIMALS 

The FORMAT DECIMALS routine 
(Apple Edition, March 1980) does not 
quite work correctly due to rounding- 
off problems. For example, LINE 380 
doesn't work right with certain 
numbers — ie. 2312.2. To fix this pro- 
blem, LINE 380 should be changed to: 
380 IF 10*N-INT(10*(N-l-lE-5)) 
X lE-5 THENNNS = N$ -H Zl$ 
With LINE 380 corrected, there is no 
need for LINE 390 and it can be 
deleted. 

There is also a problem with aligning 
numbers with zero values. SpHtting up 
LINE 320 seems to be the solution. 
320 N$ = STR$ (N) 
390 NL = LEN (N) 

With the new value of NL, the tabb- 
ing becomes misaligned. LINE 400 
should be changed to: 

400 PRINT VAL (A$(I));:HTAB 
(30-NL):PRINTN$:NEXT 

While I'm at it, there is little need for 
using the variables Zl$ and Z2$. Their 
values can be entered directly: 

360 IF INT(N) = N THEN N$ = 

N$-l-".0" 

380 IF 10 * N -INT (10*(N -I- IE - 5)) 

< IE - 5 THEN N$ = N$ -I- "0" 

This shortens LINE 100: 

100 TEXT : HOME : DIM A$(100):T 
= 1 

As it stands now, entries with values 
less than one do not have a zero printed 
to the left of the decimal point (ie., .50 
instead of 0.50.) By inserting the 
following line, this will be taken care 
of: 

385 IF VAL (N$) < 1 AND VAL (N$) 
>0 THEN N$ = "0" + N$ 

A better style is achieved in LINE 
240 with the use of a semi-colon in- 
stead of a comma: 

240 HOME : PRINT "YOUR EN- 
TRIES"; : HTAB 20 : PRINT 
"RIGHT JUSTIFIED" : PRINT 

Sorry, but try as I might, I could not 
find a single thing wrong with LINEs 
140, 160, 260 or 280. 

Michael Ching 
Honolulu, HI 

continued on page 9 



Protect 

Your 

Investment! 




Input 



With 
Vinyl Binders 

Collectors! Protect your Soft- 
Side back issues, Volumes I 
and II, or any publication of 
your cinoice, with these 
durable wood-grain vinyl 
binders with inside pocket 
and clear spine steeve for 
easy identification. Holds and 
protects 12 back issues. A 
regular $4.95 value. SALE 
priced at $3.95*. FREE (while 
supply lasts) with the pur- 
chase of Volume I or II (12 
issue collection of SoftSide). 

SMALL $3.95 

8V2XII $7.95 
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continued from page 6 



magazine and the courage to experiment. Con- 
sidering the current cost of a flop, this is nice to 
see. Most magazines pick a format and stick with 
it; changes are few and far between. Most would 
hold to the philosopy that dull and certain is bet- 
ter than exciting and uncertain. It is nice to see 
you make the effort. 

Please continue to include programs and 
material other than games. While I know that the 
entertainment content of your magazine is well 
received, the only way I get to read SoftSide 
before my sons is to get it first and not let it go. I 
find that what I go back to is "DATA BASE", 
three-dimensional figures, sound routines and 
other non-game programs. 

Keep up the good work and continue to make 
the changes you feel are necessary, even at the 
risk of causing some confusion. The benefits are 
far more obvious than the defects. 

David Marlowski 
Pago Pago, American Samoa 



Dear SoftSide, 

Printed in the July (page 10) and August issues 
(page 22) is the following: "We will allow three 
months after initial publication of a program for 
the translation to be sent, and the winning entry 
will be published the fourth month." 1 was get- 
ting ready to send in my translation of "Dairy 
Farming" (Atari version) until I bought the 
August issue. Looking at the Table of Contents, 
I found the translation was already in for that 
program. What's the reason for this? Three 
months hadn't passed yet. 

There are probably others out there in Atari 
Land and Apple Land who also got cheated out 
of a chance at that software certificate. I do 
think SoftSide is a great magazine but, when you 
print one thing and do another, that just isn't 
right. 

Unlike some other Atari users, I won't com- 
plain about the dominance of S-80 material 
because I use one in school. If you don't mind 
the daily lock-ups, trips to the repair shop, and 
other nuisances, it's a good computer. 

How about using better quality staples? 
Almost every issue of SoftSide I own has either 
no cover or the cover is falling off. The center 
pages also fall out if used too much. 

Message to all Atari and Apple users: if you 
are interested in joining a user's group in the 
Albany, Schenectady or Troy area, please call 
"The Computer Room" at (518)869-3818 

P. J. Maloney 
Schenectady, NY 



Editor's Reply: Good points! We liave 
clianged tlie text of tlie translation appeal to 
clarify some of the misunderstandings. You may 
have noticed we began using three staples in the 
binding of the September issue. Our printer has 
assured us this should help the durability of Soft- 
Side. 



Dear SoftSide, 

I'm glad to see that you published my pro- 
gram, "Battlefield." I wasn't too happy to see 
the way you removed my REMarks to replace 
them with the exact same thing in external com- 
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ments; nor the way you reduced the board, for 
no comprehensible reason. I also noticed changes 
in the documentation but most of those were im- 
provements. 

There is one change I can't accept. If you will 
recall, I very cleverly put each logical block into a 
separate subroutine, then used a main program 
consisting of a series of labelled GOSUBs, and 
included a basic flowchart as part of the pro- 
gram. Did you leave this alone? No. Did you 
delete the GOSUBs and corresponding 
RETURNS (which would save a few bytes and 
tenths of a second) at the cost of considerable 
clarity (as the removal of each subroutine's 
REMarks presumably accomplished?) No. In- 
stead, you deleted the REMarks at the end of 
each GOSUB line. This destroyed the whole 
point of the procedure, without deleting the 
GOSUBs themselves. 

In closing, I would like to add that I was flat- 
tered that you thought enough of "Battlefield" 
to translate it to Apple and Atari. Thank you. 

Joe Humphrey 
Topeka, KS 

Editor's Reply: I can't defend the editing we did 
on "Battlefield" as the only way to present a 
program listing. But we do reserve the right to 
edit programs and we try to be reasonably consis- 
tent in the way we document program listings. 
Part of that consistency involves deleting REMs 
and splicing in mixed upper and lower-case com- 
ments. We feel this makes the documentation 
stand out better in the magazine listing. It's up to 
individuals, then, to add REMs to their pro- 
grams if they so desire. We freely admit this is an 
arbitrary format, but at least we're consistently 
arbitrary! 

Anyway, since you feel so strongly about it, 
we're happy to publish a listing of your original 
BEMarked lines. 



List 80, 160 
80 GOSUB 
90 GOSUB 
100 GOSUB 
110 GOSUB 
120 GOSUB 
130 GOSUB 
140 GOSUB 
150 GOSUB 
160 HOME : 



1000: REM 
2000: REM 
3000: REM 
4000: REM 
5000: REM 
6000: REM 
7000: REM 
8000: REM 
; END 



GIVE INSTRS 
INIT VARS 
GET NAMES 
DRAW BOARD 
BEG W/ BL 
MAKE MOVES 
DO BATTLES 
END TURN 



Dear SoftSide, 

I have been a subscriber to SoftSide since early 
this year. I was beginning to agree with all the let- 
ters in your magazine which complain about 
your program listings having so many problems. 
However, when my June issue arrived, I keyed in 
all the programs and they ran terrifically. 

My husband and I particularly liked the 
"Analist" program as it truly makes following 
the flow of a lengthy program much easier. I also 
thought it an excellent idea to publish "Old 
Glory" and "Word Search Puzzle" for the S-80, 
Apple and Atari. It would be nice to have one or 
two listings like that in each issue (especially for 
those of us who cannot convert one computer 
listing to another). 

I would like to know if you have published (or 
plan to publish) any articles which will explore 
the differences in the S-80, Apple and Atari 
languages, going into detail about the process of 
converting one language to another. I would very 
much like to learn the comparisons of all three. 

Rochelle McNutt 
Lynnwood, WA 

Editor's Reply: A series of articles comparing the 
systems we support is in the works. Watch for it 
in an upcoming issue. ^_ 



Hints & 
Enhancements 

continued from page 7 

IMPROVE "INTERNATIONAL 
BRIDGE CONTRACTORS" 

In your April 1981 issue, I input the 
program, "International Bridge Con- 
tractors," and found that it ran a bit 
slow. It took between 250 to 300 moves 
to finally reach Chairman of the 
Board. 

As you will note in the listing, I have 
made some changes based on my ex- 
perience as Traffic Manager/Customs 
Broker and Foreign Freight For- 
warder. I found these changes made 
the game more exciting. 

In an average game with four 
players, by at least the 25th turn two 
players would have gone bankrupt; one 
player would still be Office Manager; 
and the last player would have reached 
the position of Regional Supervisor. 
Please note the randomness of events is 
unaffected as I increased the random 
factor from 40 to 50 and changed the 
conditional statement which prints 
"NOTHING OF IMPORTANCE IN 
THE NEWS" if the random number 
generated is less than 3 or greater than 
40. 

Try this for yourselves with a copy 
of the program, making the necessary 
adjustments. 

SCO RESTOREiCLSiX'RNDISOIiPRINT'VOUR SECRETARV REPORTSi'iP 
Rl)ITAIllFI«]DRI>40THENPRINT-N0TH!Ne OF IHPORTAHCE IS IN TH 
E NEH8.'iPRINTA(iPRINTi60SUB2000iRETURN 

503 DATA'CONeRESS HAS JUST PASSED A HI6HLV RESTRICTIVE 
TARIFF DN IHPOflTED STEEL MHICH COSTS THE CDNPANy 
•5,000,000.',5«00()00 

504 DATA-CONPANy LOSSES TOTAL 14,000,000 BECAUSE OF 
LATE DELIVERY OF CONSTRUCTION HATERIALS FRON A 
THIRD NRLDCOUNTRy.-, 4000000 

505 DATA-A SUSPENSION BRIDGE CONSTRUCTED BY THE CDHPAHV 
FIVE YEARS A60 COLLAPSES DUE TO FAULTY ENSINEERINfi, 
NITH LAHSUITS TOTALING llOiOOOiOOO.', 10000000 

SOi DATA'COST OVERRUNS COST THE COHPANY I3,S00,000 BECAUSE 

OF LATE DELIVERY OF CONSTRUCTION HATERIALS TO 

JOB SITE BY AN 'EL CHEAPO' TRUCKER. '.SSOOOOO 

507 DATA'COHPANY IS PROSECUTED BY THE JUSTICE DEPARTHENT 

FOR ILLEGAL PAYOFFS TO OVERSEAS SUPPLIERS, 

FINES TOTAL •4,S00,000.',i500OOO 

SOS DATA-PREGNANT FORHER SECRETARY SEEKS 110,000,000 

FOR 'ILLEGAL ENTRY'. CONPANY SETTLES OUT OF 

COURT FOR 1500,000. ',500000 

509 DATA'CHARTERED VESSEL CARRYING 15,000,000 IN 
STRUCTURAL STEEL FDRNS SINKS nYSTERIDUSLY 

IN HID-OCEAN AND UNDERNRITERS NILL NOT 
HONOR CLAIN. -,5000000 

510 DATA-U.S. CUSTOMS FINES COHFANY $10,000,000 
FOR FRAUDULENT INVOICING ON IHPORT SHIPHENTS 
DURING THE PAST FIVE YEARS. ",10000000 

52i DATA-A FORHER CLIENT HAS GIVEN THE CONPANY 
120,000,000 BECAUSE OF ITS PERFORNANCE ON THE 
JOB. -,20000000 

527 DATA-NEN LABOR CONTRACT ACTUALLY SAVES THE 
CONPANY 15,000,000. -,5000000 

528 DATA-COHPANY CAPTURES CORPORATE SPY AND 
RECEIVES 15,000,000 IN RENARDS FROH APPRECIATIVE 
CONPANIES.-, 5000000 

529 DATA-CONPANY HAKES EOUIPNENT PURCHASE DN 
FOREIGN NARKET AND SAVES 120,000,000. ',20000000 



530 DATA'CDHPANY RESEARCH DISCOVERS NEN 

CONHUNICATIONS DEVICE NHICN SELLS FOR 

130,000,000.-, 30000000 

931 DATA-ACCOUNTING DEPARTMENT REPORTS PREVIOUS 

EARNINBS UNDERSTATED, CONPANY GAINS «3, 000, 000. -,3000000 

532 DATA-GOVERNNENT LOBBY FORCES LEGISLATION 

THROUGH CONGRESS NHICH SAVES THE CONPANY 110,000,000.', I0« 
00000 

533 DATA-STOCKS NHICH THE COHPANY ONNS EARN 
DIVIDENDS OF 140,000,000,-, 40000000 

534 DATA-NEN ACCOUNTING SYSTEM SAVES COHPANV 
•4,000,000. -,4000000 

535 DATA-MAJOR COMPETITOR GOES BANKRUPT. . . . 
COMPANY SAINS 150,000,000 IN NEN REVENUES. ',50000000 
53i DATA'CDMPANY INSTALLS NEN COMPUTER SYSTEM 

AND SAVES (5,000,000 IN LABOR. ',5000000 

John T. Hyatt 
New Orleans, LA 

MORE MODIFICATIONS 

Harland Hill's Adaptation of 
George Blank's One-Liner (July 1 98 1, 
page 32) can be even more useful with a 
few modifications. The length of the 
string output can be increased to 220 
characters and displayed until you hit 
BREAK (or the next power failure oc- 
curs.) 

I found that doubling the time delay 
made it easier for people to read, but 
the loop in LINE 140 can be adjusted 
to any speed. I also noted that it was a 
pain in the neck to count how many 
characters I had with a long string. 
Therefore I added the "x— STOP 
HERE" display. A message of any 
length may be input until the cursor 
reaches that point. The usual admoni- 
tions regarding punctuation apply in 
this program. Karl H. Meyer 

Lake Worth FL 



***REWARD!*** 
TRANSLATION APPEAL 

SoftSide will give a $100 soft- 
ware certificate to the author of 
the best translation of a past 
SoftSide feature program. Each 
month we will publish at least one 
of these translations. Your port- 
folio will be enhanced to say 
nothing of your software library! 

We will accept entries for all 
past SoftSide programs at any 
time. However, we suggest you 
submit translations of recent pro- 
grams within three months of 
their original publication date for 
maximum consideration. Entries 
must be submitted on tape or 
disk, accompanied by complete 
documentation. Please enclose a 
self-addressed stamped envelope 
if you would like your entry 
returned. 

The quality of each translation 
will be judged by the SoftSide 
editorial staff and prizes will be 
awarded at the time of publi- 
cation. 



ATTENTION 
AUTHORS 

SoftSide Publications is actively seeking 
programs, article and review submissions 
for the TRS-80™, Apple and Atari home 
computers. This is a chance for program- 
mers as well as users to make some money 
to help pay for the "computer addiction" 
and get their efforts out where they can be 
appreciated. 

Programs — SoftSide has always been 
the leader in the field of BASIC software 
and BASIC remains our specialty. 
However, with the advent of Disk Version 
(DV), we can now also offer an outlet for 
Machine Language and multiple language 
programs which do not lend themselves to 
printed versions. Games, utilities and 
educational software, as well as any other 
applications for the home computer user 
are preferred, although we will consider vir- 
tually any type of program. Hybrid mixes 
of articles and programs are also welcomed. 

When submitting a program, please be 
sure to include full documentation of 
subroutines and a list of variables, as well as 
a brief article describing the program. 

Reviews — Well written, informed 
reviews of all software for the systems we 
cover are a regular feature of SoftSide. 
Reviewers should take into consideration all 
aspects of a particular software package, 
from speed of execution to programming 
creativity to the estimated length of time 
that the product will hold the customer's in- 
terest. 

Articles — We welcome article submis- 
sions of all types, but prefer those 
specifically geared to the home computer 
market. We give our readers information as 
a first priority, but vary our content to in- 
clude some humor and commentary. 

All text, including documentation and 
descriptive articles for programs should be 
typewritten and double-spaced. Extra 
monetary consideration will be given to ar- 
ticles and reviews submitted on machine- 
readable media (Scripsit, Super-Text 11, 
etc.). Programs should be submitted on a 
good cassette or disk. TRS-80™ BASIC 
programs should function under both Level 
11 and Disk BASIC. 

Send to: 

SoftSide Publications 

SUBMISSIONS DEPARTMENT 
6 South Street 
Milford, NH 03055 
We regret that due to the volume we 
receive, we are unable to return submis- 
sions. 

Be sure to send for our Free Author's 
Guide. It further outlines the specifics of 
our submission procedure. 

TRS-80 is a regislered trademark of Tandy corporalion. 
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by Randal L. Kottwitz 



Salutations! The excitement I spoke 
of brewing in the halls of SoftSide last 
month is bubbling over the sides in this 
one. With the release of the major pro- 
ject, I-$tring, a whole new vocabulary 
is being spoken around here. As you, 
the readers, need to understand what 
we print in these pages, the time has 
come for a few new definitions. 

I-$tring — The concept of "In- 
telligent String," utilizing the tech- 
nique of storing data in a string iden- 
tified by a character. In other words, 
I-$tring is an idea, not a program. 

Envyrn''''*^ — A problem-solving 
utility, based on the I-$tring concept. 
In essence, Envyrn^"*^ is a database 
manager/editor whose prime data for 
manipulation are graphic symbols 
rather than numbers or words. 

Envyrnment''"'*^ — A database 
created through the use of Envyrn^'*'. 
Envyrnments''''^ will contain single sub- 
jects (Star Trek, Flight Over the 
Himalayas, United States Map, etc.) 
and be dependent on an included inter- 
preter. In order to carry the label, "En- 
vyrnment^*^," a database must be 
reviewed and approved by SoftSide 
Publications. 



Diversions thru Envyrn^"*^ — A 
subscription magazine/media com- 
bination containing Envyrnments^"^ 
and accompanying background infor- 
mation. Subscribers will receive six En- 
vyrnments''''^ per year with comprehen- 
sive booklets, containing extensive 
maps, history and any other ap- 
propriate information pertaining to the 
Envyrnments^"^. The game playing in- 
terpreter will be included with initial 
subscription to Diversions'"^ with fur- 
ther modifications to be included with 
future Envyrnments'*^ as necessary. 

SoftSide DV — Another mixed 
media presentation consisting of the 
programs published in SoftSide, the 
magazine, and additional programs 
not published in printed form due to 
their length, complexity or computer 
language used. DV is the "deluxe" ver- 
sion of SoftSide, not its replacement. 

SoftSide on Cassette — A cassette 
tape version of the programs published 
in SoftSide, the magazine. At this time, 
the tapes contain only programs from 
SoftSide. Enhancement of the tape ver- 
sion is under consideration, but no 
decision has been reached on this mat- 
ter. 



SoftSide — The mother to all of the 
above! SoftSide will continue to 
publish the highest quality software 
available and act as the printed accom- 
paniment to DV and the cassette ver- 
sion. The latest news concerning 
Envyrn^'^ and Diversions thru En- 
vyrn^'^ will also be published in Soft- 
Side. 

These definitions should help you to 
better understand what is under way at 
SoftSide Publications. 

In response to the many complaints 
we've had concerning the way your 
SoftSides are wearing in the mails and 
in use for typing in programs, our 
printer has agreed to insert a third 
staple in the binding. Please let us 
know if it's helping. 

By the time you read this, the fall 
computer show circuit will be well 
under way. If you've not already done 
so, please drop by and see us. We value 
your input greatly, and there's no bet- 
ter opportunity than face-to-face at the 
shows. I'm planning to attend as many 
of them as possible and will report any 
remarkable developments in this col- 
umn in the upcoming months. Q 




SoftSide is three years old this 
month and do we have a birthday party 
issue for you! Surprises abound from 
cover to cover. 

O I-$tring Produces Envyrn^'^ is our 
cover feature. The words to describe 
the concept behind Envyrn^'^ haven't 
yet been written. We've been pulling 
our hair out, trying to find the best way 
to present this idea. We'd suggest you 
begin with the definitions in Outgoing 
Mail and work your way through to the 
centerfold/poster. (Who'd have ever 
thought SoftSide would have a center- 
fold?) This is literally only the tip of 
the iceberg for Envyrn^'^. After 
reading the material in this and up- 
coming issues, you'll agree that "enter- 
tainment software will never be the 
same!" 

O As promised, Developing Database 
has returned! Mark Pelczarski has add- 
ed some new features and solved some 
10 



old problems in the Apple version and 
we are happy to print the complete 
listing. Watch for the complete 
modified listing of the Atari version in 
an upcoming issue! 

O Leyte, a simulation based on the 
battle of Leyte Gulf, brings the great 
names of World War II to the screen of 
your micro. See if you can better the 
decisions of Roosevelt and MacArthur. 
Victor Vernon has supplied the original 
S-80 version, with Apple and Atari 
translations by Alan J. Zett. 
(3 Most Atari owners have heard that 
they can create their own character 
sets, but few have had the intestinal 
fortitude to give it a shot. Now, Alan 
Zett has simplified the process with 
Character Generator. He's then given 
us a practical application in Talce 
Apart: Atari Quest. Get out those 
August issues and try this enhance- 
ment. 
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O All of you S-80 owners can start 
spending those quarters you've been 
saving for the arcade on something 
else. ABM Command, by Arnold E. 
van Beverhoudt, should keep you 
glued to the keyboard for many, many 
hours. 

1^ Plus, Plotting the Yang/Yin Sym- 
bol by David Delli Quadri, One-Liners, 
K-Byters, The Sensuous Programmer 
and much, much more. 

Next month, we'll present a special 
theme issue. Computer Music. 
Featured will be reviews of the major 
hardware advances in music, software 
to make your micro a musical instru- 
ment, Rimsky Korsakoff's Flight of 
the Bumblebee by Morris and Cope 
and many other special features related 
to this rapidly expanding field. Until 
then, happy hacking! ^ 



CALENDAR 



October 2-4 

Microcomputers in Education 
College Park, MD 

A series of workshops is being offered to 
Tecbinical Education Research Centers 
(TERC) designed to meet the growing 
needs of educators in the elementary 
through college levels. This will be a 
hands-on experience and will cover 
educational issues as well as 
microcomputer languages and 
applications. Extensive workshop 
reference materials will be given to 
participants and hotel accomodations will 
be available. 

Contact: TERC, 8 Eliot Street, 
Cambridge, MA 02138, (617)547-3890 

October 5-6 

National Conference on Software 
Shoreham Hotel, Washington, DC 

Prominent DP professionals will cover 
nearly a dozen topics during this two-day 
meeting sponsored by The Commission on 
Software Issues in the 80's. Featured 
speakers will include the noted author and 
consultant, Daniel D. McCracken, who 
will present the keynote address; Martin 
A. Goetz, Senior VP of Applied Data 
Research, will be the second-day speaker; 
and Rep. George Brown (D-Cahf) will 
deliver the luncheon address, discussing 
his bill, "The Information Science and 
Technology Act." Sessions will be open 
for discussion following each report and 
will be led by Daniel T. Brooks, 
Commission/Conference Chairman. 
Contact: Conference Manager, U.S. 
Professional Development Institute, 12611 
Davan Drive, Silver Spring, MD 20904, 
(301)622-0066 

October 12-15 

Information Management Exposition & 
Conference/Info '81 
Coliseum, New York, NY 
Prepackaged software, both customized 
prepackaged and custom-designed will be 
discussed. In addition, hardware and 
software exhibitions will be displayed. 
Contact: Clapp and PoUak Inc., 245 Park 
Avenue, NY, NY 10167, (212)661-8410 

October 17 

Educational Computer Fair 

Cuyahoga Community College, Cleveland, 

OH 

A one-day educational fair, produced by 
and for educators in the elementary and 
secondary grades, will be presented to the 
novice through experienced computer 
user. Over 20 workshops are planned with 
curriculum areas covering language arts, 
math, social studies, science, business, 
and computer literacy. Other topics will 
include computer math and applications, 
using computers in the elementary grades, 



Computer Managed Instruction (CMI), 
selecting a computer and available 
computer grants. A hands-on approach 
will be an enhancement to this educational 
fair. Hardware and software exhibits will 
be displayed throughout the day by 
various vendors. Comparisons of TRS-80, 
Apple and Atari computers will be held. 
Advance registration (including lunch) is 
$10. 

Contact: Ellen Richman, ECC 
Coordinator, 245 Meadowood Lane, 
Moreland Hills, OH 44022, (216)292-4655 

October 20-22 

Computerized Office Equipment, Expo 

Southwest 

Astrohall, Houston, TX 

Exhibitions will include office equipment 
and word-processing systems. 
Approximately 100 exhibitors are slated to 
participate in this expo on office 
automation. 

Contact: Industrial Scientific and 
Conference Management Inc., 222 W. 
Adams Street, Chicago, IL 60606, 
(312)263-4866 

October 19-23 

Systems 81 

Munich, West Germany 

Applications and computer systems will be 

focused on in this four-day conference. 

Contact: Kallman Associates, 30 Journal 

Square, Jersey City, NJ 07306, 

(201)653-3304 

October 27-29 

Computer Graphics '81 

Regent Centre Hotel, London, England 

An equipment presentation will be on 
display. Sessions are planned around 
graphics systems hardware and software, 
animation, image processing, business and 
home graphics. 

Contact: Online Conferences Ltd., Argyle 
House, Northwood Hills, Middlesex HA6 
ITS, England 

October - December 

Seminars from Management Information 
Corp (MIC) 

Seminars are planned to be held at 
various locations throughout the United 
States. These are designed to fill the needs 
of business people needing an 
introduction to the selection of systems 
and their usage. Complete schedules, fees 
and locations are available upon request. 
Contact: Carol Bell, c/o MIC, 140 
Barclay Center, Cherry Hill, NJ 08034, 
(609)428-1020 



ir you or your organization arc sponsoring or know of an 
event you think would be of interest to SoftSide readers, please 
send complete informaiion to: 

SoflSidc Publications 

Calendar Editor 
6 South Street 
Milford. NH 03055 

Be sure to include complete information concerning dates, 
location, subject matter and a contacl name, address and 
phone number. 
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Nine Games 
for 

Preschool 
Children 



by George Blank 

Even pre-schoolers deserve a 
shot at the wonders of 
microcomputing. With these nine 
games, they not only will have a 
chance to tickle the keyboard, but 
learn letters and numbers to boot. 
And if that isn't enough, they'll 
have a good time doing so. What 
more could a parent ask for? Here 
are education and entertainment 
for the very young in a single 
package! 

S-80, Level II, 16K, Cassette $9.95 



sf#'"'ii!-"=i----''> 





>oft5[a 

3il^ction J 1 

6 5outh5trs«t Milford NH 03055 



1] 



Let PASCAL-80 talk some sense 
into your computer 



i* ) 



Phelps Gates, the author of *'APL-80", brings you 'Tascal-80' 
for your S-80. Now you can add another dimension to your 
programming skills by using this fast version of the compiled 
language Pascal. 

"Pascal-80" is a powerful, structured and well-defined language 
for the S-80 microcomputer. This easy-to-use language makes 
writing well-structured, and therefore easily understandable 
programs simple. "Pascal-80" supports most of the features of 
UCSD Pascal, including RECORD, SET (to 256 members), FILE 
(text and record oriented), n-dimensional ARRAY (and ARRAY of 
ARRAY, etc.), global GOTO ELSE in CASE statements, and BCD 
arithmetic accurate to a full 14 places (including log and trig 
functions), 6-digit optional. "Pascal-80"features a 23600 byte 
workspace in 48K, a 1(XX) line per minute compiler, an easy-to-use 
text editor, and plain English error messages, all the features you 
would expect in a Pascal costing hundreds more. 



Variable Types: .... Boolean, integer, char, real, real6, and text. 

Constants: Maxint, minint, true, false, and pi. 

Files: Input, output, and Ip. 

Procedures: Read, readin, write, writein, reset, rewrite, close, seek, els, 

and poke. 

Functions: Abs, arctan, call, chr, cos, eof, eoin, exp, inkey, in, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and trunc. 




"Pascal-80" does not implement variant records, pointer 
and window variables, or functions and procedures used as 
parameters. 
S-80 32K Disk $99.95 
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GETTING A BIT SERIOUS 
PARTS 



by Lance Micklus 

The first time I mentioned the 
"Mean Craps Machine" was six mon- 
ths ago. At that time, I pointed out 
how long it takes for a product to be 
developed and get to market. 
(Sometimes it feels like forever.) As of 
this writing, (July, 1981), the S-80 Col- 
or Computer, Model I and Model III 
versions are completed. The documen- 
tation has been written, and one copy 
of the program has been sold to a guy 
who logged onto my bulletin board and 
saw it in my catalog of items. Right 
now, here's where my work log stands: 

1. About 125 hours of work develop- 
ing the program on the Color Com- 
puter and testing it out. 

2. Another 50 hours of conversion 
work on the Model I. 

3. About 8 hours getting the 
documentation ready, including proof- 
reading and a cover picture. 

4. An additional 50 hours to do fur- 
ther testing of both versions, playing 
and re-playing the game. 

If we assume that an hour of work 
costs a modest $10 — for labor, use of 
equipment, insurance, taxes, and 
general overhead — then the total cost 
comes out to be (125-^50 + 8 + 50) 
hours times $10, or $2,330. Assuming a 
price of $10 a copy, with a 15% roy- 
alty, the number of copies I need to sell 
to break even is 1,554. Total sales to 
date: one. 

I have sent the program to Scott 
Adams for evaluation. But I can't 
assume he is going to accept everything 
I send him. So, in addition to being out 
$2,330, I have no certainty that this 
program will ever get to market; and as 
of this moment, I don't have a 
distributor, either. It's now a game of 
wait and see. 

Let's assume, though, that Scott 
Adams does like the "Mean Craps 
Machine." In that case there will be an 
additional length of time I must wait 
while he gets the package together and 
adds the program to his advertising 
and catalogs. That will probably take 
another two to three months, which 
means you'll be seeing it offered for 
sale sometime just before Christmas. 
By the time you buy it from Scott and 
he pays me my first royalty, it will be at 
least January of 1982. 



Excluding whatever sales I make on 
my own in the meantime, the total 
length of time, from the point work 
first started on the program until the 
first royalty check arrives, should be 
about ten months. Naturally, the first 
check will not be for $2,330. 
Realistically, it might take a least an 
additional year to earn my money 
back. But the "Mean Craps Machine" 
is just a single 16K BASIC program. 
Imagine how much more money must 
be invested, for a much longer period 
of time, for programs like "General 
Ledger," "ST80-III," "Profile II," 
and "LDOS." Just the cost of writing 
documentation for any of these pro- 
grams is far greater than the total cost 
of the "Mean Craps Machine." 
"LDOS" cost $27,000 — JUST FOR 
THE DOCUMENTATION! The cost 
of documentation for "ST80-IH" was 
over $4,000, exclusive of printing 
costs. 

There's one other thing about my 
program that's worrying me — do I 
have the rules straight? Nowhere have I 
been able to find any kind of official 
rule book. The best I could come up 
with was the instruction manual for the 
Craps layout my wife and I bought in 
Atlantic City. The manual was later 
found to have errors in it. The official 
rule book for "Caesar's Boardwalk 
Regency Hotel" explains the game 
briefly — just enough so you can play. 
If you have questions on the finer 
points, it tells you to ask one of the 
hotel's dealers. (I wonder if that in- 
cludes calling from Burlington, Ver- 
mont and asking to speak to a Craps 
dealer so I can ask him a question?) 

Fortunately, I hadn't sent the game 
to Scott before reading the INPUT col- 
umn in the July SoftSide. Son-of-a- 
gun, if I hadn't forgotten a small rule 
regarding bets on the odds. Then I 
discovered a bug in the program. This 
points out one of the most difficult 
decisions that a programmer has to 
make — when do you quit and say it's 
ready? 

Bugs are a problem all programmers 
must face up to. I found that I just had 
to accept the fact that no matter how 
hard I try, nothing will ever be perfect. 
If I keep trying to make it perfect, in 
the end I will produce nothing. For- 
tunately, computer users seem to be 
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able to forgive mistakes. What bothers 
them is sloppy work. The goal then, is 
to create a carefully checked out pro- 
gram, and hope that if something bad 
comes up it won't be too serious. 

There is a real advantage to making 
up your own game. At least no one can 
come back to you and challenge you on 
the official rules. But in games such as 
Craps, there are fixed rules (unwritten, 
it seems) and the program must follow 
those rules to the letter. Although 
Craps is not difficult to learn how to 
play, it is a very complicated game. 
There are many different ways to bet, 
each paying off under special condi- 
tions and according to special odds. 
People get very upset if these games 
don't follow all of the rules to the let- 
ter; I learned that the hard way from 
Checkers. But there's one big dif- 
ference between Checkers and Craps. 
Most people play Checkers for fun and 
many don't really know all of the of- 
ficial rules. Minor rule violations will 
go unnoticed by most players unless 
they're serious about the game. On the 
other hand, Craps players usually play 
for money — big money. They're all 
serious about the game. The only thing 
the programmer can do is treat these 
things as bugs and hope the public will 
understand. 

This month, I want to devote most 
of my attention to contracts. Simply 
stated, a contract is an agreement be- 
tween two or more parties. The agree- 
ment basically states the terms and 
conditions under which things of value 
are to be exchanged. In law, anything 
worth a dollar or more is considered a 
thing of value. 

Never enter into a contract with the 
idea that it will force something to hap- 
pen — you can't make somebody do 
something he doesn't want to do — or 
assume it can prevent you from being 
cheated. All contracts assume good 
faith on the part of all parties con- 
cerned. If someone wants to cheat you, 
he will, no matter what it says on 
paper. 

That's an important point. People 
tend to think that contracts are de- 
signed to protect you from getting 
cheated. The real purpose of the con- 
tract is simply to put down on paper 
the terms to which two or more people 
continued on next page 
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continued from previous page 

agree. Thus if a question arises later, 
everyone has a fixed point of reference. 
A simple example: Did the XYZ Cor- 
poration agree to supply the ABC 
Company with a source code listing, or 
a source code disk? It's easy to believe 
that when you agreed to sell the ABC 
Company the marketing rights to the 
program three months ago, you 
thought you agreed to a listing; but 
what if they thought they agreed to the 
actual source code on disk? Details like 
this can be forgotten in three months, 
but can be a major source of friction 
unless they're written down on paper. 

In general, when dealing with other 
businesses, if there is any chance of a 
misunderstanding, then write down ex- 
actly what you have each agreed to. 
This is not for the purpose of taking 
someone to court, but to avoid a 
dispute later on that could harm your 
relationship. 

Some software houses require that 
the author sign a contract before they 
will market his programs. Some con- 
tracts used in the industry are com- 
plicated and raise a lot of good ques- 
tions and are ideal for discussion pur- 
poses. 

One golden rule: Never sign a con- 
tract unless you understand exactly 
what it says. What you think it says 
doesn't count. A cover letter that 
sometimes comes with an agreement is 
a perfect example. It states that the 
purpose of the enclosed agreement is 
simply to indicate that the program 
you submitted is your own original 
code. No one could object to a clause 
like this being in an agreement for soft- 
ware. Sure enough, one item in the 
agreement does say that. But it is just 
one of many things in the agreement. 
When you sign on the line, you're 
agreeing to everything, even though 
you might not like some of the other 
things. So, don't fall into that trap. 

Another popular gimmick is to state 
that the agreement was prepared by a 
lawyer to be sure it is a legal agree- 
ment. There's no law that says a con- 
tract has to be prepared by a lawyer. 
The fact that it has been in no way 
means that the agreement will really 
serve your best interests. It is more 
likely that it means that the publisher 
has made sure it will serve HIS best in- 
terests and will be enforceable in a 
court of law. 

What would we really be agreeing to 
if we signed a contract that contained 
the following clause? "Programmer 
hereby conveys to the Publisher the ex- 
clusive right to copy, distribute, list, 
sell, advertise for sale, prepare 
derivative works and otherwise utilize 
said program." Now we get to the part 
14 



mentioned in the cover letter. It goes 
on to say, "Programmer warrants that 
he has good title to said program and 
that said program is completely his 
original work, and that no other per- 
son, firm, or corporation has any in- 
terest, right or claim to said program, 
or any part thereof." Well, I don't 
have any trouble with that part. 

It further states, "All rights transfer- 
red hereunder are exclusive. Program- 
mer covenants that he has not and will 
not transfer, assign, release or convey 
any rights in or to said program or any 
derivative work based on same to any 
other person, firm or corporation, 
without the consent to Publisher." 
Wow!!! 

What all of this really means is this: 
If I sign on the line, all rights I have to 
my program become the rights of this 
publisher, leaving me with none. Not 
only that, these rights are exclusive 
forever. In effect, this publisher would 
have the same ownership rights as if he 
wrote the program himself. Unless I 
get some money out of this deal, I am 
left with nothing — just as if I had 
never written the program in the first 
place. 

SeUing all the exclusive rights to a 
program for a lifetime is not, in itself, 
bad. There are times when companies 
do sell such rights. Suppose tomorrow 
I decide that I'm tired of writing pro- 
grams and want to close the door and 
sell out. I might very well sell my pro- 
grams under these conditions. 
Legitimate buyers for a program like 
"ST80-IH" might be Small Business 
Systems Group, The Microperipheral 
Corporation (manufacturers of the 
MicroConnection modems), Emtrol 
(manufacturers of the Lynx Modems), 
or Radio Shack. Naturally, I would ex- 
pect to get top dollar for the sale — 
especially if they wanted exclusive 
lifetime rights. In effect, they would 
really be purchasing the copyright 
itself. Since the key phrase here is "top 
dollar", let's look at the money angle 
on this. 

A portion of the contract may read, 
"The PubUsher agrees to pay Pro- 
grammer a royalty of 20% of the gross 
receipts from the sale of said program. 
Said gross receipts shall be calculated 
and said royalties shall be paid to Pro- 
grammer, at least once a year, at such 
intervals, either quarterly or otherwise, 
as Publisher, in its sole discretion, shall 
determine." There are good and bad 
things in this clause. 

The 20% royalty is based on gross 
receipts (whatever the publisher 
receives, you get 20% of it.) The re- 
maining 80% covers his costs and pro- 
fit. Keep in mind that this is not always 
20% of the retail price. If the publisher 
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sold your program to a computer store, 
it is at a discounted price. Your royalty 
might be 20% of $5 (the wholesale 
price) and not 20% of $10 (the retail 
price.) 

This type of royalty arrangement is 
still popular today but it is being 
replaced by two new types of ar- 
rangements. The first setup pays a 
royalty based solely on the retail price 
of the program. It is the percentage 
that varies. If the sale is direct retail, 
you get 20%. If it is a wholesale tran- 
saction, you get 15% of the retail price 
— not 15% of the gross. This is a bet- 
ter deal for the programmer because, 
on a wholesale transaction, the older 
plan would effectively be paying you 
10% of the retail price, instead of the 
15% you would receive under the new 
plan. 

The second new method is to pay 
15% of the retail price, regardless of 
the publisher's actual transactions. 
This doesn't sound as good but 
generally it will pay better than the 
20% gross scheme. The reasoning 
behind this is most of the big 
publishers sell more goods at wholesale 
than retail prices. Generally, I've 
found that for each retail sale there are 
two wholesale transactions. 

The advantage in both of the new 
methods is they are a lot simpler. Many 
publishers offer dealers a discount 
schedule. The more they buy, the less it 
costs. Thus, your program might be 
sold at various places to different 
dealers, making it complicated to keep 
track of your royalties, if they're based 
on the gross receipts. Either of the 
newer plans reduces complexity and er- 
rors. 

The real problem with certain 
agreements is the frequency of 
payments. Some allow the publisher to 
pay you once a year — more frequently 
if he's feeling very generous. This 
means that for a full year, the 
publisher gets to use your money, 
interest-free. That's much too long. 
The argument could be made that some 
programs don't generate enough 
royalties to make it worthwhile to pay 
more frequently. In my opinion, if 
there aren't enough royalties to make it 
worth writing a check more often than 
once a year, the program isn't worth 
publishing. 

Royalties are nearly always paid 
every month, no matter how small; of 
course, there are some exceptions. The 
Source, at one time, paid royalties to 
me for "Mean Checkers Machine," 
once every three months — and I think 
three months should be the maximum 
amount of time between royalty 
payments. However The Source did 
pay royalties monthly if, at the end of 



any given month, they exceeded a cer- 
tain amount. That's a fair arrange- 
ment. The Source is presently paying 
my royalties on a straight basis, and I 
believe they are doing the same for 
everyone else, regardless of the 
amount. 

Occasionally I might find a portion 
of an agreement that is unclear to me. 
Any time something is unclear, a little 
red flag should go up. If I were in- 
terested in signing an agreement, I 
would first talk to my attorney and ask 
him to check it out. Maybe I'm thick 
and it's O.K.. After all, I'm a com- 
puter programmer and not a lawyer. 

One agreement says in part, "Pro- 
grammer hereby agrees to indemnify 
Publisher and hold Publisher harmless 
from any and all liability, loss, damage 
or cost the Publisher may suffer as a 
result of any claims, demands, costs or 
judgment arising out of Pubhsher's 
unauthorized use of said program, or 
arising out of Publisher's or Program- 
mer's infringement of any trademark 
or copyright laws, or other claims of 
infringement of title to said program." 
It further states, "Programmer agrees 
to defend against any claim brought or 
action filed against Publisher with 
respect to the subject of the above in- 
demnification, whether such claims or 
actions are rightfully or wrongfully 
brought or filed." 

I will take this one section at a time. 
Let's say I submitted a program to 
Ram works and they published it. It 
turns out that the program was really 
one written by Radio Shack and it's 
copyrighted. Radio Shack would sue 
Ramworks, not me, because Ram- 
works is the one making the tapes; 
therefore they're the ones who are 
doing the copying. What a "hold 
harmless" clause does is say that 
whatever harm this does to Ramworks 
must be undone by me. This means 
repaying Ramworks for whatever 
damages they had to pay Radio Shack, 
plus Ramworks' legal expenses. 

If that's what the first portion really 
impUes, then it is a perfectly reasonable 
thing to ask. But being a computer pro- 
grammer rather than an attorney, I 
have to wonder enough to ask a few 
questions. What happens if Ramworks 
changes the name of my program to a 
new name, which is someone else's 
trademark, and then gets sued? If I 
agreed to the name change, am I 
liable? Suppose they never asked me 
about the new name. Am I still liable? 
These are good questions. They're the 
type of things you should get absolute- 
ly clear before you sign an agreement 
— even if is does cost you $20 for legal 
consultation. 

I'm also not sure if I like the second 



part. If a lawsuit did result from the 
use of one of my programs, it's in my 
best interest to assist the publisher in 
every way possible. If that's what it 
means, it states the obvious. However, 
it does say something about "rightfully 
or wrongfully brought or filed." I'm 
not so sure I want to be responsible for 
a lawsuit wrongfully brought against 
my pubhsher as the result of one of my 
programs. If that's the way it's got to 
be, then I want to add something that 
says the publisher is responsible for 
any lawsuit wrongfully brought against 
me as a result of his publishing the pro- 
gram. Suppose the disk on which they 
distribute my program is really made 
of sandpaper. I'm not going to pay for 
that damage. The pubhsher is respon- 
sible — let him pay for it. 

In general, publishers should take 
care of the legal responsibilities in all 
cases except where the author is clearly 
to blame. If program authors have to 
take on all this added respons- 
ibility, then a lot of them are going to 
back out in a hurry, because now 
they've got to deduct the cost of legal 
expenses and liability insurance from 
their royalty checks. Furthermore, 
being individuals, they could be held 
personally liable and could lose their 
homes, cars, or anything else of value 
they privately own. In my case, that's 
not a big problem because I have an at- 
torney, legal expenses, and all kinds of 
insurance to handle such a crisis should 
it arise. Also, since I am incorporated, 
my personal possessions cannot be at- 
tached. Legally speaking, I just work 
here. 

After I talk with my attorney, I may 
find that I'm still not satisfied with 
part of the agreement. There are two 
things I can do. First, I might just 
scratch out those parts of the contract I 
don't hke. If the publisher wants to ac- 
cept the agreement, excluding the parts 
I scratched out, that's fine. The other 
thing I might do is to add a clause, for 
instance, to make the document read 
more to my liking. 

Another interesting clause found in 
some publishing contracts states that 
you must give the publisher six 
months' written notice to terminate the 
agreement to publish your program. 
This is a fair stipulation since the 
pubhsher needs time to sell his stock 
and remove your program from his 
advertising. The agreements I have 
with my publishers (written by my at- 
torney) give 90 days' written notice, 
although we do try to give the 
pubhsher more time whenever poss- 
ible. The exception would be in a situ- 
ation where I've been cheated. Then 
I'd demand that the publisher stop all 
sales immediately. The worst thing you 
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can say about a pubhsher is he's 
dishonest. 

My agreements state that I, or a 
representative of my choosing, has the 
right to inspect the books during nor- 
mal business hours. I've never done 
that, but I have found that when I visit 
them, as part of the company tour, all 
the pubhshers I've done business with 
show me the books in which they keep 
track of my royalty payments. 

Some contracts are basically for ex- 
clusive rights. While the tendency of 
the software industry is away from ex- 
clusive rights, there is a right and a 
wrong way to enter into these 
agreements. 

Exclusive rights agreements always 
pay top dollar, and for good reason. 
With non-exclusive rights, you might 
be able to make several sales with the 
same work and make a killing. Since 
there is no chance of doing that with 
exclusive rights, you are instead com- 
pensated by being paid more than the 
work is probably worth. 

In some fields, you can still make a 
"multiple sale" even though you're 
still selling only exclusive rights. Books 
are often sold this way. There are 
rights to publish in hardcover or soft- 
cover, comic book rights, movie rights, 
rights to make it a play, and rights to 
make it a TV show. All are "exclusive" 
but each one is sold separately. 

While there may be a lot of ways to 
sell exclusive rights, they all have one 
thing in common — money. Alex 
Haley would never sell the rights to one 
of his books strictly on a royalty basis. 
Instead, he would sell his rights for a 
fixed fee plus a royalty on top. The 
royalty is a bonus for a job well done 
— not the primary source of payment 
for the rights to his work. This is the 
way professionals in other industries 
think. Sadly enough, many pubhshers 
in the software industry are just begin- 
ning to come around to this way of 
thinking. 

The publisher buys exclusive rights 
with a royalty — but the royalty should 
be the bonus. In fact, the pubhsher 
might very well end up with ownership 
rights to the program without ever pay- 
ing a penny. You, on the other hand, 
could end up with no program and no 
money. If someone wanted to buy the 
exclusive rights to "Mean Craps 
Machine," I would expect them to pay 
me double what my expenses were, or 
around $5000. In addition to that, I 
would want a royalty, although it 
could be lower than the 20% 
mentioned previously. My message to 
pubhshers is simply, "If you can't af- 
ford to pay for exclusive rights, don't 
ask for them." 

continued on next page 
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Another way to negotiate exclusive 
rights is with a limited-life contract. 
Basically, the publisher pays money up 
front plus a royalty, but his rights have 
a time limit on them — perhaps a year 
or two. One method I've used is an up- 
front fee against a royalty. A lot of 
entertainers use this method in their 
contracts — you are paid either a fixed 
fee or a percentage of the gate (like a 



royalty,) whichever is greater. 

My advice on exclusive rights is to 
avoid them whenever possible. My ex- 
perience has been that you're better off 
without them. You should only con- 
sider exclusive rights if the arrange- 
ment will pay you more than the pro- 
duct is worth. Historically, however, 
this industry tends to have the repu- 
tation of being a little cheap. The only 
time you should consider exclusive 
rights is when the deal gives you up- 
front money and you need the cash. 



Once again we see that all it really boils 
down to is money. 

Publishers claim there isn't much 
money in this industry — and it may be 
true. But it seems to me if the publisher 
is going to insist upon a contract that 
gives him every possible advantage, 
and protects him against every possible 
contingency, he should not expect top- 
flight authors to stand in line to sign on 
the dotted line. They cannot afford to 
take all the risks and just give their 
hard work away. Q 



a 



The Publisher's Response to 
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As publishers of SoftSide Magazine, 
we feel a responsibility to present articles 
of interest such as the one you've just 
read. Because we publish a monthly 
magazine, we try to provide assistance 
and information on the entire spectrum 
of microcomputing. As a software 
publisher as well, we would like to res- 
pond to the article in order to present 
what we think is a more balanced view 
of working with software publishers. 

Mr. Micklus has described his ex- 
periences for the benefit of those of you 
readers who are considering pursuing 
the personal and monetary reward of 
programming personal software. He has 
made some fair statements about the 
frustration and problems which accom- 
pany these pursuits. 

SoftSide has always encouraged its 
readers to write their own software. Be- 
ing limited by a small editorial/program- 
ming staff, we rely heavily on submis- 
sions from our readers for the content of 
our pages. When a submission comes 
along that we believe is marketable by 
Ramware (our line of software), we'll 
negotiate a deal with the author. So 
we're familiar with contracts. And the 
problems authors have with them. And 
the problems they present to publishers. 

Mr. Micklus has given you a good 
idea of the things to watch out for if you 
are contemplating the sale of your pro- 
grams. And we agree that the more the 
programmer knows about the "big bad 
world of business," the better. To the 
novice, the experience can be in- 
timidating, confusing and frustrating. 
But please note that we say it can be all 
of those things; it need not be. 

Where should you begin to shop 
around for publishers? It is likely that 
you follow most of the popular com- 
puter magazines. Take a good look at 



their ads. Which of these publishers im- 
press you with their advertising ap- 
proaches? With which have you had the 
best experiences in ordering software? 
Which offer selections of software that 
are compatible with yours? 

Approach these publishers first. But 
realize that, even with the best of them, 
you're going to have to SELL your pro- 
gram — much as you might believe that 
the program sells itself, publishers aren't 
likely to be sold just because the pro- 
gram took you 500 hours and several 
hundred dollars to create. Unfortunate- 
ly, the heart and soul you poured into 
your program isn't going to influence 
the publisher. 

Realize too that, as Mr. Micklus 
points out, software publishing is not yet 
the wildly lucrative business one might 
imagine. The publisher puts a lot of 
money, as well as his reputation, on the 
line every time he undertakes the 
duplication, packaging, promotion, and 
distribution of a new program. 

Unfortunately, extensive marketing 
data on the buying habits of the 
microcomputer owner have yet to be 
compiled. So, the software publisher 
must rely on past sales and on instinct in 
making many of his decisions. In addi- 
tion, many publishers are not marketing 
experts; they are, more often than not, 
software authors who have found it 
necessary to become businessmen, in 
order to exploit their own talent, as well 
as that of others sharing a common in- 
terest. 

If the publisher is successful, he has a 
pretty good idea of what's likely to sell. 
His business is anticipating the market, 
knowing how it will respond to a par- 
ticular program and how best to handle 
the promotion. From his point of view, 
you, the programmer, have only com- 
pleted the first step of the job. It's up to 



him to sell it. This means a large invest- 
ment on his part too. 

First, he'll have to pay someone to go 
over the program with a fine tooth comb 
to review it, offer suggestions for im- 
provement, examine the documentation 
— essentially to polish up the product. 

Then, there are production costs. 
Editing and typesetting the manual. Set- 
ting up the duplication process. Design- 
ing the packaging. Evaluating the best 
ways to promote the product: press 
releases, space advertisements, inclusion 
in fi catalog, promotional literature to 
dealers. As Mr. Micklus points out, 
neither the publisher nor the author will 
see a sale for at least two months follow- 
ing the contractual agreement. Chances 
are, the publisher will spend three or 
four times what the author has already 
spent on his program, within the first 
month of the contract. 

No, we aren't taking sides against the 
software author. We believe that certain 
obligations, responsibilities and in- 
vestments on both sides are inherent in 
every contract. Just as we can't fault the 
software author for wishing to get the 
best deal for his program, there is no 
reason to expect that the publisher ought 
not to feel the same way. 

We know the contract Mr. Micklus 
refers to. It was chosen as a sample 
because of its many obvious biases. It is 
not widely used, however, and is far 
from being an industry standard. 

In closing, our advice is to take care 
when entering a contract with a 
publisher, just as you would with any 
other sort of contract. Don't sell 
yourself short — but remember, you and 
the publisher are a partnership. Allow 
each party to do what he does best and 
you'll both be better off. And finally, if 
you've got the energy, ideas, equipment 
and wherewithal, go to it! ^ 
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The Sixth Euphoric Encounter 

Be forewarned that this month's 
topic is a bit kinky. At least, a lot of 
people seem to get all tied up in knots 
when they work with strings. Maybe 
it's a little optimistic to think that one 
column will untangle all the ins and 
outs of working with strings on your 
computer system, but I'll try to thread 
my way through anyway. 

Last month's discussion of methods 
to idiot-proof your programs, and 
previous columns as well, have touched 
on the use of strings. Let's start back at 
the beginning with what strings are, 
and then look at the various ways in 
which computers can manipulate them. 

Strings are simply groups of 
characters, all strung together in a row 
and enclosed between quotation 
marks. Examples of strings are 
"George Washington", "105586", 
and "#8-ROY.$$!%". Each character 
in a string is stored in one byte of the 
computer's memory as a number which 
ranges from through 255. The capital 
letter "A" is stored as the number 65, 
the letter "B" as 66, and so on; the 
number is stored as 48, the number 1 
as 49; a space is stored as 32, an 
exclamation point as 33, a period as 46. 
These numbers are known as the 
"ASCII codes" of the characters; and 
those which represent common letters, 
numbers, and punctuation are pretty 
standard in all computer systems. 

The most common way of using 
strings in programs is to "assign" them 
to variables, just as you assign number 
values to variables such as A, B, or XI. 
Variables which are to be assigned 
string values must have a dollar sign 
tacked onto the end, or (optionally, on 
the S-80) defined as string variables 
using the DEFSTR statement. 
Assigning values can be accomplished 
not only through the use of the " = " 
sign, but also through statements such 
as INPUT and GET (discussed in the 
June issue) and READ (to be discussed 
in a future column). All of the 
following examples demonstrate the 
assignment of a string value to a 
variable: 

10 Z$ = "YOUR SCORE IS: " 
300 INPUT NAMES 
90 READ L$ 




(Apple:) 
410 GET X$ 

(S-80:) 

50 DEFSTR RP 

60 RP = "RIGHT POSITION" 

Different computers set aside 
memory space for string variables in 
varying ways. Atari BASIC and Apple 
Integer BASIC both require that you 
tell the computer in advance exactly 
how many bytes to set aside for each 
string variable you plan to use. This is 
done with a DIMension statement such 
as 

10 DIM A$(20), X$(110), RR$(3) 
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which then allows you to assign strings 
of up to 20, 110, and 3 characters to 
these three variables. Notice that in this 
case the DIM statement is not being 
used to specify the dimensions of an 
array, but rather to set an upper limit 
on the number of characters which 
may be assigned to a particular string 
variable at any one time. While the 
Atari has no limit to the size of a string 
DIMension, the Apple does limit you 
to 255 characters. 

Neither Applesoft nor S-80 BASIC 
require this kind of string-length 
specification. In these BASICs, string 
variables may be assigned a string of 
any length from through 255 
characters. The S-80 does, however, 
require that you set aside a certain 
block of memory for string space — 
not to specify exactly how long each 
string is going to be, but to reserve 
enough total memory for all the string 
variables you plan to use. This is done 
with a statement such as 

CLEAR 1000 

which specifies lOCX) bytes to be 
reserved. If no CLEAR statement is 
used, 50 bytes are automatically 
reserved by the computer. At the same 
time,-*the CLEAR statement assigns 
zeroes to all existing numerical 
variables and the null string (no 
characters) to all existing string 
variables, and "un-dimensions" all 
arrays. 

Incidentally, CLEAR may also be 
used without a number following it, 
both in S-80 BASIC and in Applesoft. 
In this case its effect is to do the 
clearing of variable values and 
dimensions, without (in the case of the 
S-80) affecting the amount of string 
space reserved. The same variable- 
clearing function is performed by the 
statement CLR in Atari BASIC or 
Apple Integer BASIC. (However, CLR 
can be used only as an immediate 
command on the Apple, not as part of 
a program.) Because of their drastic 
effect on variables, the CLEAR and 
CLR statements are normally found at 
the very beginning of a program, 
before any variables at all are used. 

Once you have a string, then, what 
can you do with it? Or rather, what can 
you make the computer do with it? 

continued on next page 
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continued from previous page 

Among the three computer systems 
we're discussing, there are five 
different dialects of the BASIC 
language: S-80 Level II and Disk 
BASICS, Atari BASIC, and Apple 
Integer and Applesoft BASICs. These 
divide themselves into two distinct 
groups according to the ways in which 
they handle strings: Atari BASIC and 
Apple Integer BASIC in one group, 
and the S-80 BASICs and Applesoft in 
the other group. Let's tackle Atari and 
Apple Integer first. 

As we've seen, these BASICs require 
string variables to be dimensioned 
according to the maximum length of 
strings to be assigned to them. 
Consider the following program lines: 

100 DIM X$(20) 

110 X$ = "ABCDEFG" 

120 PRINT X$ 

Line 100 reserves 20 bytes for the 
contents of the variable X$, line 110 
assigns it a seven-character-long string, 
and line 120 PRINTs that string on the 
screen. But suppose that you wanted to 
PRINT only the first letter of X$, or 
maybe the last one, or even the second 
through fourth ones. It's very easy to 
do, using the following statements in 
place of the one in line 120: 

PRINT X$(l,l) 
PRINT X$(7,7) 
PRINT X$(2,4) 

The two numbers in parentheses 
specify the first and the last characters 
to be PRINTed, counting from the left 
of the string. These three statements 
will PRINT "A", "G", and "BCD" 
when X$ is defined as above. If you 
want to PRINT all the characters from 
a certain one through the end of the 
string, the second number can be 
omitted: X$(3,7) and X$(3) are 
equivalent, both returning the 
characters "CDEFG". 

If you don't want to PRINT the 
characters in question, but rather 
assign them to another string variable, 
it's done in exactly the same way: 

120 DIM Z$(20), LL$(50) 
130 Z$ = X$(l,3) 
140 LL$ = X$(5) 

This will assign the characters "ABC" 
to the variable Z$, and "FG" to the 
variable LL$. 

Strings can be not only broken 
apart, but also tied together. This is 
called "concatenation," and is 
accomplished in Atari BASIC and 
Apple Integer BASIC using statements 
18 



such as the ones in lines 220 and 230: 

200 X$ = "ABCDEFG" 
210 Z$ = "HIJKL" 
220 X$(8) = Z$ 
230X$(13) = "MNOP" 

Line 220 concatenates Z$ onto the end 
of X$, by specifying that the characters 
in Z$ are to be added onto X$ starting 
at the eighth position. This makes X$ 
twelve characters long. Line 230 then 
adds four more characters, starting at 
the thirteenth position, for a total 
length of 16. 

What, you may ask, would happen if 
line 230 were changed to 

230aX$(10) = "MNOP" 

(Note that the lower-case "a" fol- 
lowing the line number is NOT a valid 
part of the Hne number; it's just used 
here to distinguish it from the original 
Une 230.) What would happen to the 
characters "J", "K", and "L", which 
were the 10th, 11th, and 12th 
characters of X$? The fact is that they 
would be replaced by the new 
characters "M", "N", and "O", 
followed by the remaining character in 
the string, "P". X$ would then end up 
being 13 characters long: 
' ' ABCDEFGHIMNOP ' ' . 

And what, on the other hand, would 
happen if you tried this: 

230b X$(16) = "MNOP" 

In this case you're trying to add four 
characters onto a 12-character string, 
starting at the 16th position. Does that 
make sense? Well, it doesn't make 
sense to the Apple (you'll get a 
♦♦♦STRING ERR message), but it does 
to the Atari. Atari BASIC will allow 
you to add a sub-string anywhere 
within the total dimensioned length of 
the string; any gaps between assigned 
characters (such as the 13th through 
15th positions in this example) will be 
filled in with other characters. 
PRINTing X$ after executing this new 
line 230b would display "ABC 
DEFGHIJKL@@@MNOP" where 
the "@'s" might be just about any 
characters but typically would be little 
graphic hearts. 

In the same way, the Atari allows 
you to replace any characters in the 
middle of a string with other 
characters, using a statement like 

240 X$(3,5) = "ZZZ" 

This will replace the "CDE" in X$ 
with "ZZZ", without affecting the rest 
of the string. (If the statement were 
X$(3) = "ZZZ", the last "Z" would 
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become the final character of the new 
string, which would then be just five 
characters long.) 

It's in these two areas of string 
splitting and string concatenation that 
the two groups of BASICs we're 
considering work very differently. 
Before discussing other string 
functions which all the systems have in 
common, then, let's consider how 
Applesoft and the S-80 BASICs handle 
these types of manipulations. 

In this case the concatenation of 
strings is very similar to the addition of 
numbers. The equivalent of the 
original lines 200-230 above would 
look like this: 

200 X$ = "ABCDEFG" 
210 Z$ = "HIJKL" 
220 X$ = X$ + Z$ 
230 X$ = X$ + "MNOP" 

Line 220 concatenates Z$ onto the end 
of X$, and then assigns the new, longer 
string to X$; line 230 does the same 
with the characters "MNOP". This 
approach does not require that you 
know how long X$ is before adding 
sub-strings to it, as the other approach 
does. On the other hand, if you wanted 
to change some of the existing 
characters in X$ (as in lines 230a and 
240), the procedure would be more 
complicated than with the Atari, 
involving the use of one or more 
additional string functions. 

Speaking of additional functions, 
take a look at the following program: 

300 ZZ$ = "ABCDEFGHI" 
310 L$ = LEFTS (ZZ$, 1) 
320 R$ = RIGHTS (ZZ$, 4) 
330 M$ = MID$ (ZZ$, 5, 3) 
340 PRINT L$, R$, M$ 

LEFTS, RIGHTS, and MID$ are not 
string variable names, but rather string 
functions or operators. They are 
capable of isolating one or more 
characters from the left end, right end, 
or middle of a string with the greatest 
of ease. The PRINT statement in line 
340 will display the following on the 
screen: 

A FGHI EFG 

In words, here's what lines 310-330 do. 
The statement L$ = LEFT$(ZZS,1) 
picks the leftmost 1 character out of 
ZZ$ and assigns that character to L$. 
The statement R$ = RIGHT$(ZZ$,4) 
picks the rightmost 4 characters out of 
ZZS and assigns them to R$. And the 
statement MS = MIDS(ZZ$,5,3) picks 3 
characters out of the middle of Z$,, 
beginning with the 5th character of the 
string, and assigns them to MS. 



Notice that the LEFTS and RIGHTS 
functions have two "arguments" while 
MIDS has three. The arguments must 
be in the order indicated, enclosed in 
parentheses and separated by commas. 
Arguments can be constants, variables, 
or even expressions which use other 
constants, variables, operators, and 
functions. The following are all vaUd 
expressions (assuming that the 
computed values of the arguments are 
within the legal range for the given 
string): 

360 Q$ = MIDS (AS, N-1, 3) 

365 S$ = MIDS ("ABCDEFGHIJ", 

G*M1-M2, AA) 

370 R$ = LEFTS (CS + DS, X/10) 

In addition to chopping and joining 
strings, there are a few other very 
useful things that computers can do 
with them. All the BASICs under 
consideration have a function which 
gives the LENgth of any given string; 
it's used in this way: 



400 L = LEN (AS) 

While the previous string functions 
return a string value, the LEN function 
returns a number value, which is 
greater than or equal to zero (and less 
than or equal to 255, except in the 
Atari's case). One very common use of 
this function is to set the limit on a 
loop, which might be created, for 
example, to examine each character of 
a string one by one. If you know ahead 
of time how long a string is going to be, 
that's fine; but often you don't, and 
then you really need the LEN function. 
The following example searches for the 
letter "A" in any given string and 
PRINTS a message each time it finds 
one: 

500 FOR J = 1 TO LEN(XS) 

510 C$ = MIDS (X$, J, 1) 

520 IF C$ = "A" THEN PRINT "I 

FOUND ONE!" 

530 NEXT J 

A nice feature of S-80 Disk BASIC is 
its INSTR function, which works in 
somewhat the same way as the above 
loop does. It's used to search for any 
substring of one or more characters 
within another string. Unlike the above 
loop, however, INSTR will find only 
the first occurrence (if any) of the 
substring. An example of its use would 
be 

540 P = INSTR (1, XS, "A") 

where P will be assigned a number 
equal to the starting position of the 



substring ("A") within the larger 
string (XS). The initial number within 
the parentheses specifies the position in 
the larger string where the search is to 
begin; if it's omitted, it defaults to I . If 
the substring is not found, INSTR 
returns a value of zero. 

There are a couple of pairs of 
complementary functions which are 
often very helpful in working with 
strings. The first of these pairs consists 
of the ASC function and the CHRS 
function. ASC returns the ASCII value 
of a character, while CHRS returns the 
character corresponding to a specified 
ASCII value. (But CHRS is not 
available in Apple Integer BASIC.) 
The command 



PRINT ASC ("A") 



will display the number 65 on the 
screen, for example. Within the 
parentheses there must be either a 
character enclosed in quotation marks, 
or a string variable name. If a string is 
specified which has more than one 
character, the number returned by the 
function will be the ASCII value of the 
leftmost character of the string. 

The CHRS function does the 
reverse, and allows you to manipulate 
characters which may not even be 
accessible from the computer's 
keyboard. On the S-80, for example, 
the block-graphics characters cannot 
be typed in from the keyboard, but can 
all be PRINTed to the screen using 
statements such as PRINT 
CHRS(150);CHRS(188). For another 
example, Applesoft allows you access 
to the underline character, the 
backslash, and the right bracket 
through the CHRS function: Try 
PRINTing CHRS(91), CHRS(92), and 
CHRS(95). 

This is also the way to include in 
strings, or to PRINT on the screen, 
normal quotation marks WITHIN a 
string. An assignment statement such 
as 

B$ = "SAY "HELLO"!" 

will give an error message. But BS can 
be assigned the desired value using this 
strategy instead (where 34 is the ASCII 
value of a quotation mark): 

550 BS = "SAY " + CHR$(34) + 
"HELLO" + CHRS(34) + "!" 



If you plan to use the double-quote 
character (or any other inaccessible 
character) a lot, it helps to assign it to a 
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variable and then use the variable in 
place of the CHRS function. These 
lines could replace line 550, above: 



550 QS = CHR$(34) 
555 B$ = "SAY 
"HELLO" -t- QS -I- 



+ Q$ + 



The second pair of complementary 
functions consists of the VAL function 
and the STR$ function. (Neither is 
available in Apple Integer BASIC.) 
The operation of VAL was discussed 
last month; its function is to try to 
evaluate the characters of a string as a 
numerical value. The lines 

600 AS = "9804" 
610 BS = "-043NPL" 
620 X = VAL (AS) 
630 Y = VAL (BS) 

assign the numbers 9804 and -43 to X 
and Y. The STRS function does just 
the opposite: It makes a number into a 
string. Here's an example: 

650 NUM = 62473.88 
660 NS = STRS (NUM) 

This isn't used too much, but can be 
very helpful in formatting screen 
displays, building mixed number-and- 
letter strings which serve to store 
various kinds of data, and other 
miscellaneous purposes. 

Finally, the S-80's handy STRINGS 
function should be mentioned. It 
allows you to PRINT a whole lineup of 
any character you specify, with a single 
command. These two lines would have 
identical results: 

700 PRINT 

"-t--l--l--l--l--l--l--l--f4--l--l--|- 
-l--l--|--l--l--f-l--l--l--)--|-+" 

700 PRINT STRINGS (25,33) 

The first number in the parentheses is 
the number of characters to PRINT; 
the second is the ASCII value of the 
character, or the character itself. If 
your chart of ASCII values isn't near- 
by, or if you want to make the 
STRINGS statement self-explanatory 
when you look at it later, you can do 
something like this to PRINT a full 
screen line of periods: 

720 PRINT STRINGS (64,".") 

So much for this month's 
Encounter. If you're not still totally 
strung out then, I hope you'll be back. 
I will, anyway. Q 
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TRS-80 Model I and Model III Business 
and Communications Software 



Business accounting systems. Complete Pacloge $750.00 

A/R, A/P, P/R & G/L 



Accounts receivable: 



Price $195.00 



This self configuring systenn can be used on any 48K System 
with one to four disl< drives. The system can be run coordinated 
with General Ledger or it can be used by itself. The user can 
decide how many disks he needs to accomodate his system & 
configure it to his requirements. Up 999 Customers & 999 in- 
voices can be handled on a three disk system. A utility menu 
function allow for verifying programs & files, initializing files & 
configuring the system. As the users requirements change, the 
system can be reconfigured to accomodate the large capacity. 
The system supports NEBS Billing Statements, aging analysis 
reports, customer activity reports, unbilled report, open & close 
invoice reports. Sales tax is automatically handled & up to 9 
other tax or sales categories are also support. This sytem is time 
tested in over 4,000 user accounts. 

Accounts Payables: Price $195.00 

This system, like all the Mod-ill systems, is user configurable. Up 
to 999 Vendors & 999 invoices can be handled on a three disk 
system. The user can also coordinate this system with the 
General Ledger system & eliminate many of the data entry 
chores of the Ledger system. NEBS computer generated payable 
checks, aged analysis, Vendor activity & open & closed invoice 
reports and other reports are included in this package. This 
system has been run on Wang computer for several years with 
wide user approval. 

Payroll: Price $195.00 

The payroll system is also user configurable & can run on from 
one to four disks. Up to 250 employees living in up to 9 states 
can be paid using this system. NEBS computer payroll checks 
are supported. This system supports a wide range of reports in- 
cluding, W-2's, absentee, deduction, check register, payroll 
history, and more. Weekly or biweekly pay periods; salary and 
hourly pay is supported. Again, this system can also feed Ledger 
& reduce the data entry requirements for your General Ledger. 

General Ledger: Price $1 95.00 

This system is designed to interface with the other accounting 
systems or it can be run by itself. The user can define his own 
Chart of Accounts & report formatting. Trial balance, & income 
statements as well as user definable special reports are all in- 
cluded as part of the system. 



Confiplete package for Model-I (#25-229020D) $750.00 

Complete package for Model-Ill (#27-229020D) $750.00 

Accounts Receivable for Model-I (#25-22901 OD) $195.00 

Accounts Receivable for Model-Ill (#27-2290100) .... $195.00 

Accounts Payable for Model-I (#25-22901 ID) $195.00 

Accounts Payable for Model-Ill (#27-22901 ID) $195.00 

Payroll for Model-I (#25-22901 ID) $195.00 

Payroll for Model-Ill (#27-22901 ID) $195.00 

General Ledger for Model-I (#25-22901 ID) $195.00 

General Ledger for Model-Ill (#27-2290110) $195.00 

ST80-III for Model-I (#25-229001 0) $150.00 

ST80-III for Model-Ill (#27-229001 D) $150.00 

HOST package for Model-I (#25-2290020) $50.00 

HOST package for Model-Ill (#27-2290020) $50.00 



ST80III Ttie ULTIMATE Communications Package: Price $150.00 

This is our top of the line communication package. Full disk sup- 
port including DOS commands have been implemented. ST80-III 
has been on the market for over two years and has become the 
standard in TRS-80 communication. This package has been used 
in a wide variety of applications including use with: Addresso- 
multagraph, Compugraphics, Spectrometers, and a wide range 
of Time-sharing computers. 



IBM 


CDC 


ITEL 


Honeywell 


DEC 


WANG 


Prime 


Data General 


Amdhal 


RCA 


XEf?OX 


GE 


Apple 


Heath 


Northstar 


Altos 


Superbrain 


PET 


Cromemco 


HP 2000 



The package includes the ST80-III smart terminal program & nine 
other communication utilities: Fully documented with easy to 
follow instruction, ST80-III is by far the best terminal product on 
the market today. Features: 

1) User configurable communication tables 

2) Auto Logon 

3) Last line repeat 

4) Formatted video (Page, Scroll & Formatted) 

5) Direct cursor addressing 

6) File transfer from disk or to disk 

7) Printer support 

8) Echo, Feedback & Veriprompt (tm) verifies data transmitted 

9) 110 to 9600 BAUD support 

10) Remote control of/Memory open & close, Printer on & off 
Video on & off & auto logon 

11) Help display 

12) User definable function keys 



HOST communications: 



Price $50.00 



This program is by far the best HOST program you can buy. It 
supports the PRINT @ statement for the remote TRS-80 running 
any of the ST80 smart terminal programs. All of the ST80-1II ad- 
vanced functions are supported by host allowing easy access via 
Basic, Fortran and machine language programs. Host features 
include: 

1) User defined RS-232 port addressing 

2) Definable BAUD rates from 110 to 9600 

3) Definable break (yes/no) 

4) Allow line feeds 

5) Commands: 

a) Turn on TRS (request to send), 

b) Turn off TRS, 

c) Receive data only from terminal, 

d) Receive data only from host, 

e) Send data only to host, 

f) Send data only to terminal, 

g) Operate in dumb terminal mode, 
h) Operate in ST80 mode, 

i) Check CTS status. 

This is a self relocating subroutine that can load anywhere In 
high memory. 




T5€:HPIRDSID€ 



6 South St.,Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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by Victor A. Vernon, Jr. 

Apple and Atari translations by Alan J. Zett 

"Leyte" is a sea-battle 
simulation for a 16K S-80, 
Atari, or Apple (with 
Applesoft.) 

This simulation is based on 
the "Battle of Leyte Gulf" 
which was fought in October, 
1944. The following intro- 
duction provides a background 
and a brief synopsis of the 
events surrounding this great 

naval battle, continued on next page 
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conlinued from previous page 

After the U.S. Central Pacific forces 
had taken the islands of Pelelu and 
Angour, and MacArthur's Southwest 
Pacific forces had secured New 
Guinea, President Roosevelt met with 
Admiral Nimitz, who commanded the 
Central Pacific (CINCPAC), and 
General Mac Arthur. At that meeting, 
MacArthur convinced Roosevelt that 
the next objective should be the liber- 
ation of the Philippines. Admiral 
Nimitz wanted to bypass the 
Philippines and invade the island of 
Formosa. Loss of either the 
Philippines or Formosa would tear the 
Japanese empire in two, cutting off the 
home islands from the oil and wealth 
of the Indies. 

The American plan was to invade the 
Island of Leyte in the center of the 
Philippines. The invasion force would 
be the Eighth Army under the 
command of MacArthur. The Seventh 
Fleet, commanded by Admiral 
Kinkaid, would transport the troops to 
the beach. Admiral Halsey's Third 
Fleet would provide protection from 
any attempts by the Imperial Fleet to 
disrupt the landings. 

This would be the first time that 
both American Pacific Fleets would 
operate together. Heretofore the Third 
Fleet was in the South Pacific. (The 
"other" American Fleet, the Fifth, 
was in fact the Third. Only the 
commander was different: Admiral 
Spruance commanded the "Fifth 
Fleet.") The reason for the joint 
venture was the composition of the 
Seventh Fleet and the distance it would 
have to travel to perform its task. 
Before Leyte, MacArthur always had 
the luxury of establishing a beachhead 
within range of his land-based Fifth 
Air Force. At Leyte he would not have 
this support until his engineers could 
build bases. Until then the Seventh 
Fleet would not be able to defend itself 
against the Japanese naval and air 
power. 

The Seventh Fleet was mainly an 
invasion fleet. It contained troop 
transports and LST's. The only capital 
ships were in a bombardment group 
consisting of old battleships (some 
veterans of Pearl Harbor,) a few 
cruisers (some Australian), and 
destroyers with escorts. There were 18 
escort carriers, which may at first seem 
Uke a large number of carriers. But 



when one considers that they averaged 
only 28 aircraft each, and those 
aircraft were F4F's, it can be seen that 
they were not prepared for any large- 
scale naval engagements — especially 
since they carried no armor-piercing 
bombs and no torpedoes. 

The Third Fleet, however, was a true 
battle fleet. It contained the new Essex 
class carriers, each with 100 aircraft. It 
also had several light carriers with 60 to 
80 aircraft each. Support was provided 
by the new Iowa class battleships as 
well as heavy cruisers, Hght cruisers, 
and destroyers. The Armada created 
by the combined Third and Seventh 
fleets was, until then, the largest in- 
vasion fleet ever assembled. Only the 
fleet which attacked Okinawa in April, 
1945, was larger. (While the Normandy 
landing fleet was made up of ships 
from several nations, its size did not 
match either Leyte or Okinawa.) 

Against them the Imperial Japanese 
Fleet was woefully outclassed. Only 
superior strategy could carry them to 
victory and force the U.S. to accept a 
negotiated peace. The Japanese knew 
from the start of the war that they 
could not win the war; all they wanted 
was to win an agreement which would 
preserve as much of their empire as 
possible. After the defeat and almost 
total destruction of their carrier forces 
in the First Battle of the Philippine 
Sea, the Japanese developed a plan to 
defend the inner portion of the empire. 
This plan was called the SHO-1 plan. 
Its strategy was to draw the Americans 
"out on a limb," and then to cut off 
that limb. With the Leyte landings they 
were now prepared to perform the 
surgery. 



The SHO plan was based on two 
very important facts: 

1 . The Imperial Fleet was no match for 
the Third Fleet. 

2. The Seventh Fleet was no match for 
the Imperial Fleet. 

In order to be victorious, the Third 
Fleet would have to be neutralized, 
thus leaving the Seventh at the mercy 
of the Imperial Fleet. To do this would 
require nearly perfect timing and a lot 
of luck. Amazingly, SHO-1 succeeded 



in almost every detail. Only an error in 
judgment, perhaps caused by the 
vastness of the plan, denied the 
Japanese full victory. 

The Japanese forces were divided 
into three separate fleets: the Northern 
force, the Southern force, and the Cen- 
tral force. The Northern force com- 
prised what remained of the carrier 
fleet, and was commanded by Admiral 
Ozawa. Short of planes, with un- 
trained or partially trained pilots, its 
mission was to be sunk. If everything 
worked, this "bait" would lure Halsey 
and the Third Fleet north, away from 
Leyte, while the Central and Southern 
forces drove the American forces out 
of the PhiHppines. 

The Southern force was actually 
made up of two groups; one was com- 
manded by Admiral Shima and the 
other by Admiral Nashimura. While 
they were supposed to coordinate their 
movements, Shima and Nashimura 
were not on speaking terms; therefore 
they attacked separately. Their line of 
attack was to sail through the Surigao 
Strait, which led to the southern part 
of Leyte Gulf. 

The Central force, commanded by 
Admiral Kurita, would be the main at- 
tack force. Comprising 5 modern bat- 
tleships, 10 heavy cruisers, 2 light 
cruisers, and 15 destroyers, it would 
sail through the Sibuyan Sea, through 
San Bernardino strait, and then turn 
south around the island of Samar to 
enter Leyte Gulf from the north. They 
were to meet Shima and Nashimura 
early on October 25, 1944, and 
together wreak havoc upon the 
American transports in the harbor. 

If Ozawa successfully lured Halsey 
to the north, then Kurita was to be the 
surgeon who would cut off the fragile 
limb supporting the Americans. 
Kurita's force was very powerful. 
Although he had no air support, he did 
have the two largest warships afloat, 
the Musashi and the Yamato. Each 
displaced 64,000 tons, and each carried 
nine 18-inch rifles. (Naval cannons are 
called either guns or rifles, but "rifles" 
is more correct.) It should be noted 
that the more famous German bat- 
tleship Bismark had only 15-inch rifles; 
in fact, the Bismark could fit inside the 
Yamato. The Musashi was sunk in this 
battle, but it took 17 bombs and 20 
torpedoes to sink her. 

Such was the composition and 
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disposition of each of the fleets in- 
volved. Now let's review briefly the 
events of October 20 through 25, 1944. 
Remember that this was the largest 
naval battle ever fought; it covered 
thousands of square miles of ocean and 
involved every type of warship from 
the smallest P.T. boat to the largest 
battleship. If things become confusing 
and you would like to do additional 
reading, two very good books on this 
subject are Edwin P. Hoyt's "The Bat- 
tle of Leyte Gulf" and Adm. Mor- 
rison's "Naval Operations in World 
War II." 

On October 20, the American forces 
landed on the western shore of Leyte 
Island. Almost immediately, SHO-1 
was put into operation. The landings 
were accomplished with only some 
land based air attacks, from Luzon, by 
the Japanese. Two days later, the 
American submarines Darter and Dace 
spotted Kurita's Central force in the 
Sulu Sea. They attacked, sank two 
cruisers, and sent news of Kurita's 
course and speed to Halsey and 
Kinkaid. In an attempt to maneuver 
for a second attack. Darter ran 
aground; during most of that morning 
the two submarines attempted to free 
her, but nothing worked and she had to 
be scuttled. The crew was taken off by 
Dace, which returned with both crews 
to Pearl. 

At first light Halsey sent out his 
search planes; their orders were to find 
the Japanese. They found Kurita in the 
Subuyan Sea, sailing east toward San 
Bernardino Strait. Halsey immediately 
launched a full air strike. 

About this time Halsey issued a very 
important directive, one which nearly 
determined the outcome of the battle. 
Halsey's directive was intended only 
for the Third Fleet but was picked up 
by Admiral Kinkaid. It concerned the 
formation of a new task group, com- 
manded by Admiral Lee and compris- 
ing 6 battleships, 2 cruisers, and some 
screening destroyers. This task group 
was to guard San Berdarnino Strait 
when (and if) Halsey found the 
Japanese carriers. 

At this time Ozawa was trying his 
best to be found, but was not having 
any luck. He had broken radio silence 
as soon as he left home waters, but at- 



mospheric conditions prevented 
Halsey's radio men from receiving the 
transmissions. 

Halsey's strike found Kurita still in 
the Sibuyan Sea. The strike concen- 
trated on the Musashi, sinking her; 
several other ships were also damaged. 
Kurita, lacking any air cover, decided 
to turn around. This action was inter- 
preted by the American pilots as a full 
retreat. They reported to Halsey that 
Kurita's fleet had been destroyed and 
was in full retreat. By this time Ozawa 
had been discovered, and Halsey made 
a fateful decision. Faced with the deci- 
sion to stay and guard the strait or to 
head north and attack Ozawa, he 
decided that his mission was offensive 
and not defensive. He headed north 
and, because he thought Kurita was no 
longer a threat, took Lee's battleship 
force with him. He informed Kinkaid 
that he was heading north. But because 
he did not know that Kinkaid knew 
about Lee's group, he did not tell of his 
intentions of taking Lee along. Kinkaid 
assumed that Lee was still guarding the 
strait and, since he was about to engage 
the Japanese Southern force, did not 
deploy any units to the northern part 
of Leyte Gulf. 

The night of October 24-25 was a 
very eventful one. Halsey was heading 
north towards Ozawa, while Ozawa 
was heading south towards Halsey. 
Kurita had turned east again, and was 
heading for the mouth of San Ber- 
nadino Strait. Shima and Nashimura 
were sailing north through Surigoa into 
a trap. Kinkaid's bombardment group, 
commanded by Admiral Olendorf , was 
moving into position to stuff the bot- 
tleneck of Surigao Strait. P.T. boats 
patrolled the southern end of Surigoa; 
along the sides were destroyers; at the 
northern end was a floating dam of 
cruisers; and behind the cruisers were 
battleships. The Japanese, having lost 
the element of surprise, and with no 
hope of coordinating their attack with 
Kurita, sailed on through the night into 
the trap. Because of the narrow waters, 
the Japanese were forced to sail in a 
single-file line. One by one they sailed 



up the gauntlet. One by one they were 
destroyed. 

October 25, 1944, was to become 
one of the most crucial days in the 
Pacific War. At daylight, Halsey was 
within striking distance of the Nor- 
thern force and Olendorf was busy 
mopping up what remained of the 
Southern force. In the middle was the 
San Bernardino Strait, an open, 
unguarded waterway. Through this 
strait, at 20 knots, steamed Kurita and 
the Central force. Should these 22 
ships reach Leyte they would turn the 
landings into bloody shambles, with 
Halsey too far north and Olendorf too 
far south. This approach to Leyte was 
guarded only by light American units 
consisting of small escort carriers, 
destroyers, and destroyer escorts. 

The Japanese were first sighted by 
surprised, horrified pilots from the 
escort carriers. Admiral Sprague, who 
commanded the escort carriers, im- 
mediately ordered his thin line of 
destroyers to attack. These sailors 
sacrificed themselves for Leyte. He 
also started calling for help "in the 
clear;" that is, uncoded. (If Kurita 
didn't know where he was then, Kurita 
was blind!) Barrage after barrage 
straddled the American carriers, pro- 
tected only by the intrepid destroyers. 
The destroyers laid a screen of real and 
chemical smoke between the Japanese 
and the escort carriers, and then bore 
in to deliver a furious torpedo attack 
— one of the most frantic, desperate 
actions in the war at sea. Every plane 
that could get off the carriers joined 
the unequal fight. Trained only to sup- 
port ground troops, the jeep pilots hit 
the Japanese with what they could, 
with all they had. But .30-caliber 
machine guns do very little damage to 
16-inch armor-plate. 

The Japanese kept pounding away, 
smashing the reeling escorts and the 
dauntless destroyers. But the reckless 
American attack continued, scattering 
and confusing the Japanese. Kurita, 
especially, was in a quandary. He knew 
that the Southern force had been 
destroyed; he knew nothing of 
Ozawa's success in luring Halsey away. 
He had received the American calls for 
help from Lee's battleships. In his con- 
continued on next page 
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fused state he thought that the escort 
carriers were the fleet carriers of the 
Third Fleet, that the destroyers were 
cruisers, and that the destroyer escorts 
were large Fletcher class destroyers. 
The only possible conclusion he could 
draw was that he was sailing into a trap 
with all that remained of the Imperial 
Fleet. 

At this point Kurita held history in 
the palm of his hand. SHO-1 had 
worked! Kurita could have smashed 
the Leyte landings and totally isolated 
those American troops already on the 
beach. He could have forced the 
Americans to accept a negotiated 
peace, favorable to the Japanese. He 
could have saved the Empire. But what 
did he do? He quit. He turned around 
again, this time for good. 

Five American ships were sunk: 
Gambler Bay, St. Lo, Johnston, 
Roberts, and Hoel. There were 2800 
casualties. In the next days Halsey's 
airmen further smashed Kurita's ships 
as they retreated to Japan. 

The Japanese plan worked, but it 
availed them nothing. All three of their 
forces were beaten. In four days of far- 
flung fighting they lost 1 large carrier, 
3 light carriers, 3 battleships, 6 heavy 
cruisers, 4 light cruisers, and 9 
destroyers — 26 of their finest ships. 
The once-magnificent Imperial Fleet 
was no more. That dream was over. It 
died in the Battle for Leyte Gulf, and it 
died in vain. 

The preceding narrative explains 
what actually happened. The following 
will explain how to play the simulation. 
It is based on what MIGHT have hap- 
pened if Lee had been waiting for 
Kurita at the mouth of San Bernar- 
dino. You will be Lee, the computer 
will be Kurita. The American fleet will 
consist of the battleships Jersey, 
Washington, Massachusetts, and 
Alabama, the cruisers Baltimore and 
Pittsburgh, and 6 Fletcher class 
destroyers. The Japanese fleet will be 
the battleships Yamato, Nagato, 
Kongo, and Haguro, the heavy cruisers 
Chokai and Sizuya, the hght cruiser 
Nagara, and 8 destroyers. 



In both cases the destroyers are con- 
sidered to be a collective force. That is, 
the target for one is the target for all. 
While individual destroyers can be 
targeted and sunk, all of them must be 
sunk to destroy their force. 

The screen displays a map showing 
the Island of Samar, with San Bernar- 
dino to the left and Leyte Gulf to the 
right. North is the left side of the 
screen, east is the top, south is the right 
and west is the bottom. The Japanese 
fleet will move from left to right, from 
San Bernardino to Leyte. To win you 
must sink all 7 capital ships: everything 
larger than a destroyer. If any get to 
Leyte or if all your ships (including 
destroyers) are destroyed, then you 
lose. Of course, the Japanese will NOT 
turn around. 

You can issue any of these four com- 
mands, by pressing the appropriate 
number key: 

1 - status report 

2 - fire guns 

3 - fire torpedoes 

4 - course correction 

The status report will tell you the con- 
dition of each of your ships; you will 
not be told the condition of the 
Japanese ships. (The computer will tell 
you only if they are sunk, at the time 
when it checks the status of all ships.) 
If you choose to fire your guns you 
will then be asked for a target for each 
of your ships. The Japanese ships are 
numbered as follows; use the number 
to designate a target: 

1 - Yamato 

2 - Nagota 

3 - Kongo 

4 - Haguro 

5 - Chokai 

6 - Suzuya 

7 - Nagara 

8 - Destroyers (collectively) 
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If a target is sunk you will be directed 
to select another. Whether or not you 
score a hit is determined by three fac- 
tors: 

1 - a randomly selected number 

2 - how close you are to the target 

3 - whether the target has been fired 

upon by another ship. 

The closer you are to the Japanese, the 
better will be your chances to hit 
something. The third factor comes into 
play because naval gunfire is ac- 
complished by first firing a round, and 
then correcting the aim by noting 
where the first shells land. This can be 
done by watching the splashes; but if 
two or more ships are firing on the 
same target, it is impossible to tell 
which splashes go with each ship's fire. 
The Japanese avoided this by coloring 
their shells, thus giving different 
colored splashes for each ship. 

Firing torpedoes is essentially the 
same, except that only destroyers carry 
torpedoes; thus, you will only be able 
to fire at one target. Also remember 
that while a torpedo can do much more 
damage than a shell, the Mark 14 
torpedoes used by the U.S. Navy in 
World War II were notoriously 
unreliable. At times they would sink; at 
other times they would breach and ex- 
plode against a wave. If they did hit a 
ship, they didn't always explode. The 
Japanese "long Lance" torpedo was 
larger (24 inches versus 21), and it 
WORKED. 

Command #4 is a course correction; 
it is not necessary to access this com- 
mand on every turn. Your course is in- 
itially set in a northerly direction. To 
change this you will be prompted to 
enter a number which will lead you in 
any one of 8 directions. The Japanese 
fleet will be heading generally south at 
a flank speed, so that if they get past 
your fleet, you will not be able to in- 
tercept them. Also remember that you 
are a Fleet Commander, not a Ship's 
Captain. Your orders will be for the 
fleet as a whole, and you will not be 
able to move individual ships. 

Basically that's all- there is to it: 
maneuver and fire. But remember that 
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maneuvering is as important as firing. 
If you stay too far away from the 
Japanese, your chances of sinking 
anything will be very slim, and they 
will sail on to Leyte while you watch 
them go by. But if you get too close too 
soon, the Japanese will blow you out 
of the water with their superior gunfire 
and torpedoes (Japanese cruisers also 
carry torpedoes.) 

Your position on the map will be in- 
dicated by an "A," and the Japanese 
position by a "J." If both fleets are at 
the same place you will see an "*". 



VARIABLES: 

A: Location of American fleet. 

A(n,nn): Holds all pertinent 

information about the American 

fleet. 

A$(n): Names of American ships. 

Al: Course of American fleet. 

AZ: Miscellaneous. 

C: Movement counter. Determines 

when computer will check on status 

of all ships. Also helps determine if 

Japanese fire guns or torpedoes. 

G: Command variable. 

H: Hit counter. 

H(n,nn) or H(n,nn,x): Hit table; 

determines how much damage is done 

if a hit is scored. Damage is 

determined by the size of the shell, 

where it hits, and what it hit. 

I: Used in POKEing and PEEKing 

screen memory. 

1$: Keyboard input variable. 

J: Position of Japanese fleet. 

J(n,nn): Holds all pertinent 

information about the Japanese fleet. 

J$(n): Names of Japanese ships. 

JT: Number of reserve torpedoes for 

Japanese fleet. 

M: Modifier; changes range of Z, 

depending upon fleet locations. 

Ml: Temporary storage for M. 

NT: Number of reserve torpedoes for 

American fleet. 

R$: Used in status report messages. 

T: Used in arrays to signify target. 

T$: Keyboard input variable. 

T1,T2: Temporary storage variables. 

T1$,T2$; Temporary storage variables 



Because of the extensive line-by-line 
documentation provided by the 
author, and the fact that the 
documentation is essentially the same 
for all three versions, we have not 
spliced it into each separate listing. 
Rather, it is presented below in a way 
that makes it applicable to all three 
programs. Note that we've indicated 
RANGES of Une numbers; you won't 
find every named line in every version. 



In fact, lines such as 99 and 149 won't 
be found in any of the versions; they 
simply indicate the upper limit of that 
range of lines. 

Line 50: READ/DATA cure for some S-80 

Model I computers. 
Lines 60-99: Initialization. 
Lines 100-114: Loads the arrays. 
Lines 115-149: Draws the map on the 
screen. Map cannot be 
redrawn during the program. 
Lines 150-189: Moves the fleets. 
Line ISO: Sets half-turn & hit counters to 0. 
Line 160: Clears bottom of screen, puts a 

"." at current positions. 
Line 165: Reads new Japanese position, 
checks to see if Japanese have 
reached Leyte. 
Lines 170-174: Sets random number 

modifier to maximum, then 
moves Japanese fleet 1 
above or 1 below center. 
This varies the route the 
Japanese will take from 
game to game. 
Lines 175-179: Prevents American fleet 

from hitting land or going 
off screen. 
Line 180: Puts both fleets in position. 
Lines 190-279: Command routine. 
Lines 190-239: Prints commands & changes 

modifier. 
Line 240: Puts time limit on command 

entry. 
Line 250: Checks for an input of 1, 2, 3, or 

4. 
Line 260: Branches to selected command. 
Line 270: Changes half-turn count if time 

limit is exceeded. 
Lines 280-479: Displays the status of 

American ships. 
Line 280: Starts loop & checks if ship is 

sunk. 
Line 290: Branches if ship is Iowa or New 

Jersey. 
Lines 300-339: Checks status of Iowa & 

New Jersey. 
Line 340: Checks if ship is cruiser or 

destroyer. 
Lines 350-379: Checks status of other 

battleships. 
Line 380: If X = 7 then ship is destroyer. 
Lines 390-419: Checks status of cruisers. 
Line 420: Checks status of destroyers. 
Lines 430-469: Displays the ships' status. 
Line 470: Goes back to command display. 
This was not made a subroutine 
to enable player to check the 
status without limiting his time to 
decide on his next command. 
Lines 480-619: U.S. gunfire routine. 
Line 480: Changes half-turn count & skips 

any sunken ships. 
Lines 490-519: Prompts for a target. Rejects 

any non-numerical input. 
Line 520: Array is subscripted 0-7, so it 
subtracts 1 from target. Also 
changes modifier to make target 
harder to hit if ship was already 
fired upon in this turn. 
Line 530: If target is sunk, selects another. 
Line 540: Resets hit counter to 0, fires once 

Line 530: If target is sunk, selects another. 
Line 540: Resets hit counter to 0, fires once 

for each gun. 
Line 550: V determines where target was 

hit. If the ship firing was a 

SoftSide October 1981 



battleship & the target is hit on 
the front or back turret or on the 
bridge, then the number of guns 
on the target is decreased by one. 
Line 555: Timing delay. 
Line 560: Changes defense factors on 

target. 
Line 570: Displays the number of main 

armament hits. 
Lines 580-619: Repeats process for 

secondary armament. 
Lines 620-720: U.S. torpedo fire. 
Line 620: Changes half-turn count & 

modifier. 
Line 630: Makes sure U.S. has torpedoes. 
Line 640: Selects a target. 
Lines 650-689: Selects a target. 
Line 690: Fires torpedo & checks for hit. 
Line 700: Determines where ship was hit 

and changes strength tables. 
Line 710: Displays number of hits. 
Line 720: Goes to Japanese firing routines. 
Lines 730-879: U.S. course change routine. 
Line 880: Checks turn count. Japanese only 
fire torpedoes on second half-turn 
if range is close enough. 
Lines 890-1015: Japanese gunfire routine. 
Line 890: Checks for sunken ships. 
Line 900: Makes sure there is something to 

shoot at. 
Lines 910-919: Selects next target. 
Line 920: Fires guns and checks for hit. 
Lines 940-969: Main armament hits. 
Lines 970-1014: Secondary hits. 
Line 1015: Checks turn count. 
Lines 1020-3019: Japanese torpedo firing 

routine. 
Line 1020: Displays torpedo fire & changes 
, modifier. 

Line 1030: Checks if cruisers can fire 

torpedoes. 
Lines 1040-2039: Fires destroyer torpedoes. 
Lines 2040-3019: Fires cruiser torpedoes. 
Lines 3020-4020: Status update routine. 
Line 3030: Resets target flags. Sets sunken 
ship flags for Japanese & 
displays messages. 
LiHe-3050: Checks if American ships are 

sunk. 
Line 3060: Checks status of American 
destroyers. Resets targets for 
Japanese destroyers. 
Lines 3070-3089: If an American destroyer 
is sunk, subtracts 1 from 
total afloat & decreases 
torpedo reserves by 10. 
Lines 3090-4019: Repeats process for 
Japanese destroyers. 
Line 4020: If Japanese fleet is not 

destroyed, goes to command 
routine. 
Lines 4030-5999: End-of-game win/lose 

messages. 
Lines 4030-4059: Win message. 
Line 4060: Double-checks American ship 

status. 
Lines 4070-5999: "You lose" messages. 
Lines 6000-6999: Data section. 
Lines 6000-6079: Data for all A & J arrays. 
Lines 6080-6109: Data for hits table. 
Lines 6110-6999: Japanese movement data. 
Lines 7000-7100: On the S-80, this is an 

error trapping routine for 
catching FOR/NEXT 
loops that produce errors, 
in the Apple, these lines 
do not exist. On the Atari, 
this is an erase-to-bottojoi- 
of-screen subroutine. 

continued on next page 

25 



The most important book 
ever published 
for the Apple. 



The most comprehensive description of 
Apple II firmware and hardware ever 
published — all in one place. 



Ajslbott's Where in th, 

APPLE? 





What's Where in the Apple? 

• Guides you — with a numerical Atlas and 
an alphabetical Gazetteer — to over 
2,000 memory locations of PEEKs, 
POKES, and CALLs. 

• Gives names and locations of various 
Monitor, DOS, integer BASiC, and 
Applesoft routines — and tells you what 
they're used for. 

• Helps BASIC users to speed up their 
programs. 

• Enables assembly language programmers 
to simplify coding and interfacing. 

All Apple users will find this book helpful in 
understanding their machine, and essential 
for mastering it! 

Ask for It at your computer store 



128 pages, 8'/2 x 11 inches, 
cardstock cover, Wire-0 binding. 
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IF A + Al < THEN Al = 40 




GOTO 430 
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340 


IF X > 4 THEN 380 


A LOT OF DATA TO READ'; NT = 




,65: POKE FN PII + J), 74: IF 


350 


IF AIX,4) < 50 OR AIX,2) < 7 


50;JT = 100;A = 167;A1 = - 




A = J THEN POKE FN PII + A 




THEN R« = 'PREPARE TO ABAND 


III • 




),106 




ON SHIP!"; GOTO 430 


100 FOR X = TO 7; READ J«(X),A 


190 


HTAB 1: VTAB 17; PRINT "COim 


360 


IF AIX,4) < 100 OR AIX,2) < 


$(X)i FOR Y = TO 7; READ J 




AND ?■;; CALL - 958; IF J = 




14 THEN R« = "SEVERE DAHAGE" 


(X,Y),A(X,Y); NEXT Y,X 




A + 1 OR J = A - 1 OR J » A + 




: GOTO 430 


110 FOR X » TO 4; FOR Y = 1 TO 




40 OR J = A - 40 THEN HI = 


370 R» = "LITTLE OR NO DAHAGE"; GOTO | 


6; FDR Z ' TO 1; READ H(X, 


200 


HTAB 1; VTAB 19: PRINT ' 1 - 




430 


Y,Z); NEXT Z,Y,X 




STATUS REPORT': IF A = J THEN 


380 


IF X = 7 THEN 420 


115 HONE ; FOR X M TO 13; PRINT 




HI = - 1 


390 


IF AIX,4) < 20 OR AIX,2) < 4 


ntiininintfnnin ""N 


210 


PRINT ■ 2 - FIRE BUNS': IF A 




THEN R« = "SINKING!": GOTO 


funiinnififtti !'■ ""T X 




= J + 39 OR A = J - 39 OR A 




430 


120 INVERSE ; HTAB 10; VTAB 8: PRINT 




= J + 41 OR A = J - 41 THEN 


400 


IF AIX,4) < 50 OR AIX,2) < B 


SPCI 20) |; HTAB 8; VTAB 9; PRINT 




HI = 2 




THEN R$ ' 'HEAVY DAHAGE! ": GOTO 


SPC( 24) |i HTAB 6; VTAB 10) 


220 


PRINT " 3 - FIRE TORPEDOES'; 




430 


PRINT SPC( 28);: HTAB 5; VTAB 




IF A = J + 1 OR A = J - 1 OR 


410 R« = "LIGHT OR NO DAHAGE"; GOTO 


11; PRINT SPCI 30);; HTAB 2 




A = J + 40 OR A = J - 40 THEN 




430 


; VTAB 12; PRINT SPC( 35); 




HI = 


420 


IF AIX,4) < 25 OR AIX,2) < 5 


125 INVERSE i HTAB 1; VTAB 13; PRINT 


230 


PRINT ' 4 - COURSE CORRECTIO 




THEN R$ = "HEAVY DAHAGE!": GOTO 


SPCI 39);; HTAB 1: VTAB 14; 




N';H = HI 




430 


PRINT SPCI 80);; VTAB 14; PRINT 


240 


POKE - 16368,0: FOR X = 1 TO 


425 R» = 'UNDAHAGED' 


' < SAN BERNARDINO STR. 




2000: IF PEEK 1 - 16384) < 


430 


HTAB I: VTAB 17; CALL - 958 


LEYTE BULF >';; NORMAL 




128 THEN 270 




; PRINT "STATUS :" 


130 POKE FN P 1371), 211; POKE FN 


250 


BET 1$: IF ASC ill) < 49 OR 


440 


PRINT A$IX)i" : ";R$: IF X = 


PI375),193; POKE FN P(379), 




ASC II«) > 52 THEN 270 




7 AND AI7,5) > 1 THEN PRINT 


205; POKE FN PI383),193: POKE 


255 


FOR X = 1 TO 1: NEXT X 




AI7,5)" AFLOAT' 


FN PI387),210 


260 6 s VAL III): ON G GOTO 280, 


460 


FOR Y = 1 TO nil; NEXT Y: NEXT 


150 FOR X = 1 TO 1; NEXT XsC » 




480,620,730 




X 


sH = 


270 


NEXT X;C = C + 1: IF C > 2 THEN 


470 


GOTO 190 


160 HTAB 1; VTAB 17; CALL - 958 




150 


480 C « C + 1; FOR X = TO 7; IF 


; POKE FN PII + J), 172; POKE 


275 


GOTO 240 




AIX,5) < 1 THEN NEXT X 


FNPII + A), 172 


280 


FOR X = TO 7; IF AIX,5) < 


490 


HTAB 1; VTAB 17; CALL - 958 


165 READ J; IF J » 999 THEN 5010 




1 THEN R$ = 'SUNK': GOTO 430 




: PRINT "ENTER TARGET FOR "A 


170 (11 « 3;Z = INT ( RND ID 1 3 


290 


IF X > 1 THEN 340 




*(X);H = HI 


) + 1: IF Z = 1 THEN J » J + 


300 


IF AIX,4) < 50 OR AIX,2) < 7 


500 


GET T$:T = VAL (T$) 


40 




THEN R» = 'FLOATING JUNK YA 


510 


IF T < 1 OR T > 8 THEN VTAB 


172 IF Z « 2 THEN J » J - 40 




RD': GOTO 430 




18: PRINT "ENTER NUHBER OF T 


175 IF PEEK 1 FN P(I + A + AD) 


310 


IF AIX,4) < 100 OR AIX,2) < 




ARGET SHIP.": PRINT 'CHECK I 


= 32 THEN HTAB 1; VTAB 17; 




12 THEN R« « "VERY HEAVY DAH 




NSTRUCTIONS"; GOTO 500 


PRINT 'YOU'RE ABOUT TO RUN 




ABE": GOTO 430 


520 T = T - 1:H = H + JIT,7);JIT, 


A6R0UMD!"! PRINT "I HILL NOH 


320 


IF AIX,4) < 150 OR A(X,2) < 




7) = JIT, 7) + .5 


CORRECT YOUR POSITION'; FOR 




17 THEN R$ = 'HODERATE DAHAG 


530 


IF JIT, 5) < 1 THEN PRINT J» 


ZZ = 1 TO 1111; NEXT ZZ;A1 = 




E": GOTO 430 




IT)" SUNK': FOR ZZ = 1 TO 44 


- 40 


330 R$ = "ESSENTIALLY UNDAHAGED'; 




4: NEXT ZZ: GOTO 490 










continued on next page 
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continued from previous page 


TS ON:": PRINT JKT)}: CALL 


,l),l)jfl(T,4) ' AIT,4) - HIV 


540 H = 0; FOR Y = 1 TO A(X,6)iZ » 


- 958; FOR ZZ « 1 TO 444; NEXT 


,JIY,1),0) 


INT (( RND (1) t 10) + 1) + 


ZZ 


1000 NEXT Xi IF H > THEN HTAB 


H; IF Z > 4 THEN 570 


720 NEXT Y; SOTO 880 


1: VTAB 20; PRINT H" SECONDA 


545 H = H + I 


730 HTAB 1; VTAB 17: CALL - 958 


RY ARMAMENT HITS ON;"; PHINT 


550 V » INT ( RND (1) 1 5)i IF X 


1 PRINT ' 8 12': HTAB 7 


A»IT):H » 0; FOR ZZ • 1 TO 1 


< 5 AND (V = OR V = 1 OR 


; PRINT "1"; HTAB 4; PRINT " 


111; NEXT ZZ 


V = 3) THEN J(T,6) = J(T,6) - 


7--+--3 ENTER NEH COURSE': 


1010 NEXT Y; FOR X = 1 TO 222; NEXT 


1 


HTAB 7; PRINT '!'; HTAB 4: PRINT 


X 


555 FOR Z = 1 TO 444: NEXT Z 


"6 5 4' 


1015 IF C > 1 THEN 3020 


5t0 JIT, 2) = J(T,2) - H(V,A(X,0), 


760 SET I$:6 = VAL (10 


1017 GOTO 160 


1)!J(T,4) = J(T,4) - H(V,A(X 


770 IF S < 1 OR S > 8 THEN 760 


1020 M = Ml: HTAB 1: VTAB 17: CALL 


,0),0) 


780 ON S GOTO 790,800,810,820,83 


- 958; PRINT "INCOMING JAPA 


570 NEXT Yi IF H > THEN HTAB 


0,840,850,860 


NESE TORPEDO FIRE"; IF Ml = 


l! VTAB 19: PRINT H" HAIN AR 


790 Al = - 40; GOTO 870 


3 THEN M « M + 1 


MAMENT HITS ON;": PRINT J»(T 


800 Al = - 39: GOTO 870 


1025 FOR ZZ = 1 TO 666: NEXT U 


)i! CALL - 958: FOR ZZ » 1 TO 


810 Al = 1: GOTO 870 


1030 FOR X = 4 TO 6: IF JIX,3) > 


nil: NEXT ZZ;H = 


820 Al = 41; GOTO 870 


AND J (X, 5) > THEN 2040 


580 H = HI: FOR Y = 1 TO A(X,6) t 


830 Al = 40: GOTO 870 


1035 NEXT X 


2:Z = INT (( RND (1) » 10) + 


840 Al = 39: GOTO 870 


1040 IF (JI7,3) < 1 AND JT < 1) OR 


1) + H: IF Z > 4 THEN 610 


850 Al = - 1: GOTO 870 


JI7,5) < 1 THEN 3020 


590 H » H + 1 


960 Al = - 41 


1050 IF JI7,3) < 1 AW) JT > 9 TI€N 


600 V = INT ( RND (1) t 5);J(T,2 


870 GOTO 190 


JI7,3) * 10;JT » JT - 10 


) = J(T,2) - H(V,A(X,1),1);J 


830 IF C > 1 AND Ml < 3 THEN 102 


1060 JI7,3) = J(7,3) - 5 


(T,4) = J(T,4) - H(V,A(X,1), 





1070 FOR X = TO 7: IF AIX,5) < 


0) 


885 M » Ml; HTAB 1; VTAB 17: CALL 


1 THEN NEXT X: SATO 4070 


610 NEXT Y,X:M = Ml: IF H > THEN 


- 9S8:H = 


1080 T = TT: FOR X = 1 TO 1; NEXT 


HTAB 1: VTAB 20: PRINT H" S 


890 FOR Y = TO 7: IF J(Y,5) < 


X:TT = TT + 1; IF TT > 7 THEN 


ECONDARY ARMAMENT HITS ON:": 


1 THEN 1010 


TT = 


PRINT J»(T)j; CALL - 958:H 


895 HTAB 1: VTAB 17: PRINT "INCO 


1085 IF AIT,5) < 1 THEN 1080 


= 


MING JAPANESE FIRE FROM;": PRINT 


1090 FOR X » 1 TO 5;Z « INT H RNB 


615 FOR ZZ = 1 TO 1111: NEXT ZZ: 


J$(Y)): CALL - 95Q 


ID t 10) + 1) + M: IF Z > 4 


60TQ 880 


900 FOR X = TO 7: IF A(X,5) < 


THEN 2030 


620 C = C + ItH = HI - C: HTAB li 


1 THEN NEXT X: SOTO 4070 


1100 V = INT ( RND ID t 5);A(T, 


VTAB 17j CALL - 958 


910 T = TT; FOR X = 1 TO 1: NEXT 


2) = AIT, 2) - HIV,6,1);AIT,4 


630 IF A(7,3) < 1 AND NT < 1 THEN 


X:TT = TT + 1: IF TT > 7 THEN 


) = AIT, 4) - HIV, 6,0); HTA8 


PRINT "NO TORPEDOES TO FIRE 


TT = 


1: VTAB 19: PRINT "TORPEDO H 


": FOR ZZ = 1 TO 1111: NEXT 


915 IF A(T,5) < 1 THEN 910 


IT ON "A$IT)): CALL - 956: FOR 


ZZ: BOTO 880 


920 FOR X = 1 TO J(Y,6):Z « INT 


ZZ = 1 TO nil; NEXT ZZ: IF 


640 IF A(7,3) < 1 AND NT > 9 THEN 


(( RND (1) t 10) + 1) + M: IF 


T < 7 THEN T = T + 1 


A(7,3) = 10:NT = NT - 10 


Z > 5 THEN 960 


1110 FOR ZZ = 1 TO nil: NEXT ZZ 


650 A(7,3) ' A(7,3) - 5: PRINT "T 


940 M = H + .5;H = H + 1:V = INT 


2030 NEXT X: GOTO 3020 


ARGET ? (ENTER NUMBER PLEASE 


( RND (1) « 5); IF (V « 1 OR 


2040 F = X; FOR X = 1 TO 1; NEXT 


)"!M » Ml 


V = 3) AND Y < 4 THEN AIT, 6) 


X;JIF,3) = JIF,3) - 8 


670 SET T$:T = VAL (T$): IF T < 


= A(T,6) - 1 


2050 FOR X = TO 7; IF A(X,5) < 


■ 1 OR T > 8 THEN PRINT 'NO S 


950 AIT, 2) « AIT, 2) - HIV,JIY,0), 


1 THEN NEXT X; GOTO 4070 


UCH TARGET": GOTO 670 


1);AIT,4) * AIT, 4) - H(V,JIY 


2060 T = X; FOR X = 1 TO 1: NEXT 


680 T = T - 1: IF J(T,5) < 1 THEN 


,0),0) 


X: IF T = 8 THEN 4070 


HTAB li VTAB 19: PRINT J$(T 


960 NEXT X: IF H > THEN HTAB 


2070 FOR X = 1 TO 8:Z » INT (( RNB 


)" SUNK,": PRINT "SELECT AND 


1: VTAB 20; PRINT H" HAIN AR 


ID « 10) + 1) + M; IF Z > 4 


THER TARGET"; SOTO 670 


MAMENT HITS ON;": PRINT A$IT 


THEN 3010 


690 FOR Y = 1 TO 5;Z ' INT (( RND 


)i; CALL - 958; FOR ZZ = 1 TO 


2080 V = INT I RND ID 1 5);AIT, 


(1) MO) + 1) + M: IF Z > 5 


nil; NEXT ZZ:H = 


2) = AIT, 2) - HIV,6,DiA(T,4 


THEN 720 


965 IF Y > 5 THEN 1010 


) = AIT,4) - H(V,6,0); HTAB 


700 V = INT ( RND (1) t 5)!J(T,2 


970 FOR X = 1 TO JIY,7) t 2;Z = 


1: VTAB 19: PRINT 'TORPEDO H 


) « J(T,2) - H(V,6,1):J(T,4) 


INT II RND ID » 10) + 1) + 


IT ON ■A»(T)i: CALL - 938; FOR 


= J(T,4) - H(V,6,0):H = H + 


Mi IF Z > 5 THEN 1000 


Z = 1 TO nil; NEXT Z; IF T < 


1 


980 H = H + 1:V " INT t RND (1) t 


7 THEN T = T + 1 


710 HTAB 1; VTAB 19: PRINT H" HI 


5)iAIT,2) = AIT, 2) - HIV,J(Y 


3010 NEXT X 



28 



SoftSide October 1981 



3020 HTAB U VTAB 17! CALL - 95 


CAPITAL SHIPS SUNK'! PRINT 


0,1,1,8,9,0,0 


8) PRINT "CHECKINB STATUS OF 


4040 PRINT "YOU HAVE SAVED THE L 


6040 DATA "CHOKAI", "ALABAMA", 4, 


ALL SHIPS"! FOR ZZ = 1 TO 8 


EYTE LANDINGS"! PRINT ! PRINT 


2,5,5,25,31,16,0,220,250,1,1 


88: NEKT ZZ 


4050 PRINT "TO PLAY AGAIN TYPE R 


,8,9,0,0 


3030 FOR X = OTO 6!J()(,7) = Oi IF 


UN"! END 


6050 DATA "SUZUYA", "BALTIMORE", 


J(X,2) < 1 OR J(X,4) < 1 THEN 


4060 FOR X = TO 7! IF A(X,5) > 


4,4,5,5,25,25,16,0,220,200,1 


J(X,5) ' 0! PRINT J«(X)" SUN 


THEN 150 


,1,15,9,0,0 


K",! FOR Z = 1 TO nil! NEXT 


4070 NEXT X! HOHE ! PRINT "YOU L 


6060 DATA "NAGARA", "PITTSBURGH" 


Z 


OST ALL YOUR SHIPS"! PRINT 


,5,4,0,5,20,25,8,0,100,150,1 


3050 IF A(X,2) < 1 OR A(X,4) < 1 


4080 PRINT "MAYBE KINKAID'S SEVE 


,1,7,9,0,0 


THEN A(X,5) = 


NTH FLEET"! PRINT 


6070 DATA "JAP. DESTROYERS", "U 


3060 NEXT X!J(7,7) = Oi IF A(7,2 


4090 PRINT "KILL SAVE THE LEYTE 


.S. DESTROYERS", 5, 5, 0,5, 10,1 


) > OR A(7,4) > THEN 309 


LANDINGS"! PRINT i PRINT ! GOTO 


5,10,10,50,55,8,6,6,5,0,0 





4050 


6080 DATA 20,2,15,1,12,1,8,0,2, 


3070 A(7,5) = A(7,5) - \\ IF A(7, 


5010 HOME ! PRINT "THE JAPANESE 


0,20,1,25,2,20,1,15,1,10,0,3 


5) < I THEN 4020 


HAVE REACHED LEYTE'i PRINT ! 


,0,15,1 


3080 A(7,2) = 5!A(7,4) = 20iA(7,3 


GOTO 4080 


6090 DATA 18,1,15,1,12,0,7,0,2, 


) = lOiNT = NT - 10 


6000 DATA "YAMATO',"NEW JERSEY" 


0,17,3,15,1,15,1,11,0,7,0,2, 


3090 IF J(7,2) > OR J(7,4) > 


,1,2,4,4,35,33,0,0,300,275,1 


0,17,3 


THEN 4020 


,1,9,9,0,0 


6100 DATA 17,2,15,2,12,2,10,1,3 


4000 J(7,5) = J(7,5) - li IF J(7, 


6010 DATA "NAGAT0","IDWA",2,2,4 


,1,20,5 


5) < 1 THEN 4020 


,4,30,33,0,0,250,275,1,1,8,9 


6110 DATA 361,362,323,284,285,24 


4010 J(7,2) = 5iJ(7,4) » 25!J(7,3 


,0,0 


7,208,209,210,211,212,173,17 


) = lOiJT = JT - 10 


6020 DATA "KONGO", "WASHINGTON", 


4,215,216,177,178,179,180,18 


4020 FOR X = TO 6i! IF J!X,5) < 


3,2,4,5,29,31,0,0,250,250,1, 


1,222 


1 THEN NEXT X: BOTD 4030 


1,8,9,0,0 


6120 DATA 183,224,185,226,227,18 


4025 GOTO 4060 


6030 DATA "HAGURO',"MASSACHUSET 


8,229,270,271,312,313,354,35 


4030 HONE ! PRINT "ALL JAPANESE 


TS", 3,2, 4, 5,28,31, 0,0,250,25 


5,396,397,438,479,999,999 

continued on next page 




The Apple II User's Guide 



by Lon Poole, Martin McNiff, 
and Steven Cook 

This guide is the key to unlocl<ing the full power of 
the Apple* II computer. Topics include: Applesoft 
and Integer BASIC programming — especially how to 
make the best use of Apple's sound, color, and 
graphics capabilities. The book presents a thorough 
description of every BASIC statement, command, and 
function. Machine level programming — although not 
a Machine Language programming guide, this book 
covers the Machine Language Monitor in detail. 
Hardware features — the disk drive and printer are 
covered in separate chapters. Advanced 
programming — special sections describe high 
resolution graphics techniques and other advanced 
applications. 

'Apple is a trademark of the Apple Computer Corporation 

The Apple II User's Guide $15.00 
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BASF FlexyOlsk 1 
No. 



Rarufd LcrKjtn l.>aB/!et 



l^f^^ ^ 




More than four decades of experi 
ence in magnetic media - BASF 
invented magnetic recording 
tape, the forerunner of today's 
wide range of magnetic media, 
back in 1934, and was the first 
independent manufacturer of 
IBM-compatible floppy disks. 



Tough Tyvek sleeve — no paper 
dust, no static electricity. 



Special self-cleaning jacket and 
liner help eliminate data errors 
and media wear and tear. 





Center hole diameter punched to 
more accurate standards than 
industry specifications, for top 
performance. 



Bi-axially oriented polyester 
substrate — for uniform and reli- 
able performance year after year 



Cross-linked oxide coating-for 
low head wear and long trouble- 
free media life. 



Total capability -one of two man- 
ufacturers in the world that 
makes both 8" and 5.25" models, 
has tape and disk experience, and 
manufactures floppy disk drives. 



Double lubrication — lubricants 
both in the formula and on the 
disk surface, to minimize media 
wear due to head friction. 



Packaging to suit your 
requirements — standard flip-top 
box, Kassette 10* storage case, 
or bulk pack. 



100% certification— every single 
disk is tested at thresholds 2-3 
times higher than system require- 
ments, to be 100% error-free. 



F'or the name of your nearest 
supplier, write BASF Systems, 
C'rosby Drive, Bedford, 
MA 01730, or call (517-271-4030. 




BASF 



Floppy Disks Mag Cards Cassettes Computer Tapes Disk Packs Computer Peripherals 



Atari Version 

10 REH QRIBINAL VERSION BY; 
20 REH VICTOR A. VERNON JR. 
30 REN ATARI VERSION BY: 
40 REH ALAN J. ZETT 

50 DIN A(7,7),J(7,7),A$(120),J$(120),H 
(4,12),T1«(40),T2»(15),R«(40) 
60 6RAPHICS 0!l=PEEK(5<)0)iPEEK(SM)t25 
i+4iI=PEEK(I)+PEEK(I+ni256 
70 POKE 752,1;? "ONE MOMENT PLEASE" i? 
"THERE IS A LOT OF DATA TO READ»!NT=50 
iJT=100!A=167;Al=-l!P0KE 82,0 
80 FOR K=l TO 105;J«()()=" "!A*(X)=" "; 
NEXT X; RESTORE 

100 FOR X=0 TO 7!READ T1«,T2«:J»(X»15+ 
1)=T1$;A«(X»15+1)=T2«!F0R Y=0 TO 7!REA 
D Tl,T2iJ(X,Y)=Tl:A(X,Y)«T2!NEXT Y:NEX 
T X 

no FOR X=0 TO 4!F0R Y=l TO 6!F0R Z=0 
TO 1:READ TliH(X,Y+Zt6)»TliNEXT ZiNEXT 
YjNEXT X 

113 FOR X=l TO 40;Tl«(X)=CHR$(160)iNEX 
T XiOPEN ll,4,0,"K" 
115 GRAPHICS OiPOKE 752,l!F0R X=l TO 1 

'*■ ■ ) M M M M ) M M M M M ») » M ) M M M » 

)MM>) I '"NEXT X 

120 POSITION 9,7!? Tl$(21)!!P0SITI0N 7 

,8'.? Tl«(17))iP0SITI0N 5,9!? Tl»(13);i 

POSITION 4,10!? TlKlDi 

125 POSITION l,ll!? T1$(6))!P0SITI0N 

,12!? T1«(2)|!P0SITI0N 0,13!PRINT Tl$; 

Tl«; 

127 POSITION 0,13:? « < SAN BERNARDINO 

STR. LEYTE GULF >") 
130 POKE 1+371, 5l!P0KE 1+375, 33!P0KE I 
+379,45!P0KE I+383,33iP0KE 1+387,50 
140 POKE 82,2 

150 FOR X=l TO liNEXT X!C»0!H=0 
l&O POSITION 2,1&:60SUB 7000iP0KE I+J, 
12!P0KE I+A,12 

165 READ JilF J=999 THEN 5010 
170 Nl=3!Z»INT(RND(0)t3)+liIF Z=l THEN 

J=J+40 
172 IF Z=2 THEN J=J-40 

175 IF PEEK(I+A+A1)<>128 THEN 177 

176 POSITION 2,16!? "YOU'RE ABOUT TO R 
UN AGROUND!":? "I'LL CORRECT YOUR POSI 
TION/iFOR ZZ=0 TO 500!NEXT ZZ!Al=-40 

177 IF A+AKO THEN AIMO 

180 A=A+Al!POKE I+A,161>P0KE I+J,170!l 

F A'J THEN POKE I+A,138 

190 POSITION 2,16!608UB 7000:? "CONHAN 

D ?"!IF J»A+1 OR J=A-1 OR J«A+40 OR J= 

A-40 THEN H1=0 

200 POSITION 2,18!? " 1 - STATUS REPOR 

T"!lF A«J THEN Hl=-1 

210 ? " 2 - FIRE BUNS"! IF A=J+39 OR A» 

J-39 OR A=J+41 OR A»J-41 THEN Hl«2 




220 ? " 3 - FIRE TORPEDOES"! IF A=J+1 

R A=J-1 OR A»J+40 OR A=J-40 THEN H1«0 

230 ? " 4 - COURSE C0RRECTI0N"iN«l11 

240 POKE 764,255!F0R X=l TO 2000! IF PE 

EK(764)=255 THEN 270 

250 SET il,Tl!lF TK49 OR Tl>52 THEN 2 

70 

255 FOR X=l TO Is NEXT X 

260 G=VAL(CHR((TllliON G GOTO 280,480, 

620,730 

270 NEXT X!C=C+l!lF C>2 THEN 150 

275 GOTO 240 

280 FOR X=0 TO 7!lF A(X,5)<1 THEN R«=" 

SUNK"! GOTO 430 

290 IF X>1 THEN 340 

300 IF A(X,4)<50 OR A(X,2)<7 THEN R«=" 

FLOATING JUNK YARD"!SOTO 430 

310 IF A(X, 4X100 OR A(X,2)<12 THEN R« 

="VERY HEAVY DA«AGE"!GOTO 430 

320 IF A(X, 4X150 OR A(X,2X17 THEN R« 

'"MODERATE DAMA6E"!G0T0 430 

330 R$="ESSENTIALLY UNDAMAGED"! GOTO 43 



340 IF X>4 THEN 380 

350 IF A(X,4X50 OR A(X,2)<7 THEN R$=" 

PREPARE TO ABANDON SHIPI"!GOTO 430 

360 IF A(X, 4X100 OR A(X,2)<14 THEN R« 

="SEVERE DAMAGE"!GOTO 430 

370 R»="LITTLE OR NO DAMAGE"!GOTO 430 

380 IF X=4 THEN 420 

390 IF A(X,4)<20 OR A(X,2X4 THEN R»=" 

SINKING! "iGOTO 430 

400 IF A(X,4X50 OR A(X,2X8 THEN R»=" 

HEAVY DAMAGE! "iGOTO 430 

410 R$="LI6HT OR NO DAMAGE' !GOTO 430 

420 IF A(X,4)<25 OR A(X,2X5 THEN R*=" 

HEAVY DAMAGE!"! GOTO 430 

425 R$="UNDAMABED" 

430 POSITION 2,16!60SUB 7000!? "STATUS 

440 ? A$(X»15+l,(X+l)ll5)i? R$!lF X=7 
AND A(7,5)>1 THEN ? A(7,5)i' AFLOAT" 
460 FOR Y=0 TO SOOiNEXT YiNEXT X 
470 GOTO 190 

480 C»C+l!FOR X»0 TO 7! IF A (X, 5X1 THE 
N NEXT X 

490 POSITION 2,16!G0SUB 7000!? "ENTER 
TARGET FOR "jA«(Xtl5+l, (X+l)tl5)!M»Hl 
500 GET ♦l,Tl!T=VAL(CHR»(Tl)) 
510 IF T<1 OR T>8 THEN POSITION 2,1?!? 
"ENTER NUMBER OF TARGET SHIP"»? "CHEC 
K INSTRUCT IONS" iGOTO 500 



520 T=T-liM=M+J(T,7)iJ(T,7)=J(T,7)=J(T 
,7)+0.5 

530 IF J(T,5)<1 THEN ? J$(T»15+1, IT+1) 
tl5)i? "WAS SUNK"!FOR ZZ=0 TO 200INEXT 
ZZiGOTO 490 

540 H=OiFOR Y=l TO A(X,6)iZ=INT((RND(0 
)»10)+l)+M!lF I>4 THEN 570 
545 H=H+1 

550 V=INT(RND(0)«5)!lF X<5 AND (V=0 OR 
V=l OR V=3) THEN J(T,6)«J(T,6)-1 
555 FOR Z=0 TO 200iNEXT Z 
560 J(T,2)=J(T,2)-H(V,A(X,01+6)!J(T,4) 
=J(T,4)-H(V,A(X,0)) 

570 NEXT YilF H>0 THEN POSITION 2,18!G 
OSUB 7000i? H|" MAIN ARMAMENT HITS ONi 
"I? J«(Ttl5+l,(T+l)»15)iF0R ZZ=t TO 5 
580 M=Ml!FOR Y=! TO A(X,6)«2!Z=INT((RN 
D(0)»10)+n+MiIF Z>4 THEN 610 
590 H=H+1 

600 V=INT(RND(0)»5)!J(T,2)=J(T,2)-H(V, 
A(X,1)+6)!J(T,4)=J(T,4)-H(V,A(X,1)) 
610 NEXT YiNEXT XiM'MlilF H>0 THEN POS 
ITION 2,19!G0SUB 7000i? H;" SECONDARY 
ARMAMENTS HITS ONi"!? J$(Ttl5+l, (T+l)t 
15)!H=0 
615 FOR ZZ=0 TO SOOiNEXT ZZiGOTO 880 

620 C=C+hM=Ml-C!POSITION 2,16iG0SUB 7 
000 

630 IF A(7,3)<1 AND NT<1 THEN ? "NO TO 
RPEDOES TO FIRE'iFOR ZZ=0 TO SOOiNEXT 
ZZiGOTO 880 

640 IF A(7,3)<1 AND NT>9 THEN A(7,3)=l 
0!NT=NT-10 

650 A(7,3)=A(7,3)-5!? "TARGET ? (ENTER 
NUMBER PLEASEI"!M=M1 
670 GET tl,Tl!T=VAL(CHR«(Tl))iIF T<1 
R T>8 THEN ? "NO SUCH TARGET" iGOTO 670 
680 T=T-l!lF JIT, 5X1 THEN POSITION 2, 
18i? J«(TI15+1,(T+1)»15)!? "WAS SUNK"! 
? "SELECT ANOTHER TARGET'iGOTO 670 
690 FOR Y=l TO 5:Z=INT((RND(0)»10)+1)+ 
Mi IF Z>5 THEN 720 

700 V»INT(RND(0)»5)!J(T,2)=J(T,2)-H(V, 
12)!J(T,4)=J(T,4)-H(V,6)!H=H+1 
710 POSITION 2,18!? H}" HITS ONi "iJ$( 
Tll5+l,(T+l)tl5)i60SUB 7000SF0R ZZ=0 T 

200!NEXT ZZ 

720 NEXT YiGOTO 880 

730 POSITION 2,16iB0SUB 7000:? " 8 

1 2"i? • !"!? " 7--+--3 ENTE 
R NEW COURSE" 

740 ? " !"!? "654" 
760 GET tl,Tl!S=VAL(CHRt(Tl)) 

continued on next page 
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continued from previous page 

770 IF 6<1 OR G>8 THEM 760 

780 GOTO St 10+780 

790 ftl=-40:S0T0 870 

800 A 1 =-39 i SOTO 870 

810 A1=1:60T0 870 

820 fllMliSOTO 870 

830 Al=40:6OT0 870 

840 A1=39!B0T0 870 

850 Al=-l!60T0 870 

m Al»-41 

870 GOTO 190 

880 IF Ol AND HK3 THEN 1020 

885 N^HliPDSITION 2,16sG0SUB 7000tH=0 

890 FOR Y=0 TO 7! IF J(Y,5)<1 THEN 1010 

895 POSITION 2,1&:? MNC0HIN8 JAPANESE 

FIRE FROMi "iSOSUB 7000!? J«( 

Ytl5+l,(Y+l)»15) 

900 FOR X'O TO 7; IF A(X,5)<1 THEN NEXT 

XsGOTO 4070 
910 T=TT!FOR X=l TO IsNEXT XjTT^TT+IsI 

F TT>7 then TT=0 

915 IF A(T,5)<1 THEN 910 

920 FOR X=l TO J(Y,6)!Z»=INT((RND(0)tlO 

) + l)+l1;IF Z>5 THEN 960 

940 «=M+0,5!H=H+l!V=INT(RND(0)t5)!lF ( 

V=l OR V=3) AND Y<4 THEN A(T,6)=A(T,6) 

-1 

950 A(T,2)=A(T,2)-H(V,J(Y,0)+6)!A(T,4) 

=A(T,4)-H(V,J(Y,0)) 

960 NEXT X!lF H>0 THEN POSITION 2,19:? 

H;' NAIN ARNAKENT HITS ON:"!SOSUB 700 
Oi? A«(T»15+1,(T+1)I15)!F0R Z2»0 TO 50 
OsNEXT ZZiH'O 
965 IF Y>5 THEN 1010 
970 FOR X=l TO J(Y,7);Z=INT((RND(0)tlO 
)+l)+M!lF Z>5 THEN 1000 
980 H=H+l!V=INT(RND(0)t5):A(T,2)*A(T,2 
)-H(V,J(Y,l)+6):A(T,4)=A(T,4)-H(V,J(Y, 
D) 

1000 NEXT XilF H>0 THEN POSITION 2,19; 
? Hi" SECONDARY ARHAHENT HITS ON;"!? A 
$(T<15+l,(T+l)tl5)iH=0!F0R ZZ=0 TO 500 
iNEXT ZZ 

1010 NEXT YiFOR X=0 TO 100;NEXT X 
1015 IF Ol THEN 3020 
1017 BOTO 160 
1020 M'MhPOSITION 2,16!60SUB 7000:? « 



INC0HIH6 JAPANESE TORPEDO FIRE* i IF Kl> 

3 THEN H»H+1 

1025 FOR ZZ«0 TO 300iNEXT ZZ 

1030 FOR X«4 TO 6iIF J(X,3)>0 AND J(X, 

5) >0 THEN 2040 

1035 NEXT X 

1040 IF (J(7,3)<1 AND JT<i) OR J(7,5)< 

1 THEN 3020 

1050 IF J(7,3)<1 AND JT>9 THEN J(7,3)» 

10!JT=JT-10 

1060 J(7,3)«J(7,3)-5 

1070 FOR X«0 TO 7iIF A(X,5)<1 THEN NEX 

T X;GOTO 4070 

1080 T=TTiFOR X=l TO 1:NEXT X:TT»TT+l! 

IF TT>7 THEN TT«0 

1085 IF A(T,5)<1 THEN 1080 

1090 FOR X>1 TO 5iZ>INT((RND(0)tlO)HI 

+M!lF Z>4 THEN 2030 

1100 V=INT(RND(0)t5)!A(T,2)»A(T,2)-H(V 

,12)iA(T,4)=A(T,4)-H(V,6)!P0SITI0N 2,1 

8 

1105 60SUB 7000:? "TORPEDO HIT ON "(A* 

(Ttl5+l,(T+l)tl5)!F0R ZZ»0 TO 500!NEXT 

ZZ!lF T<7 THEN T=T+1 
1110 FOR ZZ=0 TO 500:NEXT ZZ 
2030 NEXT X:60TO 3020 
2040 F»X!FOR X«l TO hNEXT XiJ(F,3)»J( 
F,3)-8 

2050 FOR X»0 TO 7: IF A(X,5)<1 THEN NEX 
T X!eOTO 4070 

2060 T=X!FOR X=l TO 1:NEXT X!lF T=8 TH 
EN 4070 

2070 FOR X=l TO 8:Z=INT((RND(0)»10)+1) 
+H!lF Z>4 THEN 3010 

2080 V*INT(RND(0)«5):A(T,2)=A(T,2)-H(V 
,12):A(T,4)=A(T,4)-H(V,6)!P0SITI0N 2,1 
8 

2090 60SUB 7000:? "TORPEDO HIT ON ")A« 
(T»15+1,(T+1)»15):F0R ZZ«0 TO 500!NEXT 
ZZ:IF T<7 THEN T=T+1 
3010 NEXT X 

3020 POSITION 2,16!60SUB 7000:? "CHECK 
ING FOR SUNKEN SHIPS'sFOR ZZ«0 TO 400: 
NEXT ZZ 
3030 FOR X=0 TO 6:J(X,7)=0!lF J(X,2)<1 

OR J(X,4)<1 THEN J(X,5)»0!? J«(X»15+1 
,(X+l)ll5)i" "pFOR M TO SOOiNEXT 



r 



iBrOlllin&riTCII 4975 Brookdale Dept. 01 
/M -■- J— ^^^ Bloomfield Hills, Mich. 48013 

jicivcnf urcs ^^^^^ ^^^ ^^^^ 

Continental Adventures presents three adventures and one graphics game 
for the Atari 400 and 800 computer owner 

The Ghost Tower — Combat with diabolical demons, 16K $16.95 

Town of Derango — Avenging the death of a father, 8K $16.95 

Talismanof Power — A search for the four keys of Gremlock, 16K $18.95 

Super Shape Builder — A graphics game for creating your own pictures. 
Joysticks reqd. 8K $14.95 



I 
3050 IF A(X,2)<1 OR A(X,4)<1 THEN A(X, 
5)=0 

3060 NEXT X:J(7,7)»0iIF A(7,2)>0 OR A( 
7,4) >0 THEN 3090 

3070 A(7,5)»A(7,5)-1jIF A(7,5)<1 THEM 
4020 

3080 A(7,2)c5:A(7,4)-20:A(7,3)=10iMT-N 
T-10 

3090 IF J(7,2)>0 OR J(7,4)>0 THEM 4020 
4010 J(7,2)»5:J (7,41=25: J(7,3)=10iJT«J 
T-10 

4020 FOR X=0 TO 6: IF J (X, 5X1 THEN MEX 
T X;GOTO 4030 
4025 BOTO 4060 

4030 GRAPHICS 0:? "ALL JAPANESE CAPITO 
L SHIPS SUNK':? 

4040 ? "YOU HAVE SAVED THE LEYTE LAND I 
MBS":? ;? 

4050 ? "TO PLAY A6AIM TYPE RUN";END 
4060 FOR X»0 TO 7: IF A(X,5)>0 THEN 150 
4070 NEXT XiBRAPHICS 0:? "YOU LOST ALL 

YOUR SHIPS":? 
4080 ? "NAYBE KINKAID'S SEVENTH FLEET" 
■ ? 

4090 ? "KILL SAVE THE LEYTE LAMDINBS": 

? !? ;BOTO 4050 

5010 GRAPHICS 0:? "THE JAPANESE HAVE R 

EACHED LEYTE":? :GOTO 4080 

6000 DATA YAHATOjNEN JERSEY, 1,2,4,4,35 

,33,0,0,300,275,1,1,9,9,0,0 

6010 DATA NAGAT0,I0HA,2,2,4,4,30,33,0, 

0,250,275,1,1,8,9,0,0 

6020 DATA K0N60,MASHINGTON,3,2,4,5,29, 

31,0,0,250,250,1,1,8,9,0,0 

6030 DATA HAGURO, MASSACHUSETTS, 3, 2, 4, 5 

,28,31,0,0,250,250,1,1,8,9,0,0 

6040 DATA CH0KAI,ALABAMA,4,2,5,5,25,31 

,16,0,220,250,1,1,8,9,0,0 

6050 DATA SUZUYA,BALTIHORE, 4,4,5,5,25, 

25,16,0,220,200,1,1,15,9,0,0 

6060 DATA NABARA,PITTSBURGH,5,4, 0,5,20 

,25,8,0,100,150,1,1,7,9,0,0 

6070 DATA JAP. DESTROYERS, U.S. DESTROY 

ERS, 5, 5, 0,5, 10, 15, 10, 10, 50, 55,8,6,6,5, 

0,0 

6080 DATA 20,2,15,1,12,1,8,0,2,0,20,1, 

25,2,20,1,15,1,10,0,3,0,15,1 

6090 DATA 18,1,15,1,12,0,7,0,2,0,17,3, 

15,1,15,1,11,0,7,0,2,0,17,3 

6100 DATA 17,2,15,2,12,2,10,1,3,1,20,5 

6110 DATA 361,362,323,284,285,247,208, 

209,210,211,212,173,174,215,216,177,17 

8,179,180,181,222 

6120 DATA 183,224,185,226,227,188,229, 

270,271,312,313,354,355,396,397,438,47 

9,999,999 

7000 ? " "j:RETURN 

7010 REN 7 <ESC> <SHIFT> <DELETE>'S 
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10 REH LEVTE ! BATTLE OFF SflNAR (HYPOTHETICAL) !0CT,,1944 
20 REH VICTOR A. VERNDH JR. 
50 POKE 16553,239 

&0 CLEAR200iDIHA(7,7),JI7,7),A$(7),Jt(7),H(4,<i,ll!RANDDH 
&5 ON ERROR GDT07000 

70 CLS:PRINT"0NE HOHENT PLEASE':PRINT"THERE IS A LOT OF DATA TO 
READ"!NT=50iJT=100!A=245!Al=-l: 1=15360 

100 FORl(=OT07:READJ$(l(),A«(X)iFORY=OT07iREADJ()(,Y),A()(,Y)iNEm, 
« 

110 F0Rl(=0TO4iFORY=lT06!FOR2=0T0l!READHI)(,Y,Z):NEXTZ,Y,)( 
US F0Rl(=0T0640STEP64iPRINTai(,STRIN6$(64,46)iNEXTl( 
120 PRINTa394,STRINB$(39,191)j:PRIHT8454,STRINB$(49,191)iiPRINTJ 
513,STRINB»(56,191)i:PRIHTJ576,STRIN6«(62,191)s!PRINTJ57B,'< SAN 
BERNARDINO STR.'; 

130 PRINT3620,'LEYT£ BULF >';:P0KE15821,83;P0KE15828,65;P0KE1583 
5,77iPOKE15B42,65iP0KE15849,82 
135 FORX=15822T015B50STEP7!POKEX,32:POKEX-2,32!NEI(T)( 
150 FORXMTOl!NEXTX!C=0!H»0 
160 PRINT9640,CHRtl31)!POKEIiJ,46:P0KEUA,46 
165 READJiIFJ=999THEN5010 
170 Hl=3iZ»RND(3)iIFZ=lTHENJ=J+64ELSEIFZ=2THENJ=J-64 

175 IFPEEK(1+A+A1)=191PRINT8640, "YOU'RE ABOUT TO RUN AGROUND TUR 
KEY'iPRINT'THE COMPUTER NILL NOM CORRECT YOUR STUPIDITY"!F0RZZ=1 
T0500iNEXTZZsAl=-64 

176 IFAtAl<0THEHAl>64 

IBO A»A+AliP0KEI+A,65!P0KEI+J,74!lFA=JTHENP0KEI+A,42 

190 PRINT8640,"C0MHAHD ?"iCHR«(220)!lFJ=A+10RJ=A-10RJ=A+640RJ=A- 

64THENN1<0 

- STATUS REPORT": IFA=JTHENM1=-1 

- FIRE SUNS' ilFA»J+630RA=a-630RA=J+650RA=J-65THENNl 



3 - FIRE TORPEDOES": IFA=J+10Rfl=J-10RA=J+640RA=J-64THE 



200 PRINT" 

210 PRINT" 

=2 

220 PRINT" 

NNl'O 

230 PRINT" 4 - COURSE CORRECTION" :H=H1 

240 FORX=lT02000il«=INKEY«:IFI»="THEN270 

250 IFASC(I«)<490RASC(I$)>52THEN270ELSEF0RX=1T01:NEXTX 

260 G«VAL(I«):ONB 60T0280,480,620,730 

270 NEXTXiC=CM;IFC>2THEN150ELSE240 

280 F0RX«0T07iIFAlX,5)<lTHENR»="SUNK":60T0430 

290 IFX>1THEN340 

300 IFA<X,4)<50DRA(X,2)<7THENR«="FL0ATIN6 JUNK YARD":B0T0430 

310 IFA(X,4)<1000RA(X,2)<12THENR$="VERY HEAVY DAHA8E":60T0430 

320 IFA(X,4)<1500RA(X,2)<17THENR»="HODERATE DAMAGE" :S0T0430 

330 Rt>"ESSENTIALLY UNDAHA6ES"iGOT0430 

340 IFX>4THEN380 

350 IFA(X,4)<500RA(X,2)<7THENR«="PREPARE TO ABANDON SHIP!":G0T04 

30 

360 IFA(X,4)<1000RA(X,2)<14THENR«="SEVERE DAMAGE" :eOT0430 

370 R$="LITTLE OR NO DAHAGE":BOT0430 

380 IFX«7THEN420 

390 IFfl(X,4)<200RA(X,2)<4THENR$="SINKINB!":G0T0430 



400 IFA(X,4)<500RA(X,2)<8THENR«>"HEAVY DAHABE!":B0T0430 

410 R«="LI6HT OR NO DAMAGE" :60T0430 

420 IFA ( X , 4 X 250RA ( X , 2 ) ( 5THENR$= ' HEAVY DAMAGE ! " ELSER(> " UNDAMAGED 

■ 

430 PRINTJ640,CHR« (31); "STATUS ;" 

440 PRINTA»(X)j" : "jR«!lFX=7 ANDA(7,5)>1PRINTA(7,5)" AFLOAT" 

460 F0RY>lTD500iNEXTY:NEXTX 

470 60T0190 

480 C»C+l:F0RX»0T07iIFA(X,5)<lTHENNEXTX 

490 PRINT}640,CHRt(31l;'ENTER TAR6ET FOR ■AflX):M=Ml 

500 T«-INKEY»;IFT$»"THEN500ELSET»VAL(T«) 

510 IFT<10RT>8PRINT3704, "ENTER NUMBER OF TARBET SHIP. CHECK INST 

RUCTI0NS":60TD500 

520 T=T-l:H=M+J(T,7):J(T,7)»J(T,7)+.5 

530 IFJIT,5)<1PRINTJ»(T)" SUNK":FORZZ=1T0200;NEXTZZ!BOT0490 

540 H»0:FORY=lTOA(X,6)!Z=RND(10)+MiIFZ>4THEN570ELSEH=H+l 

550 V=RHD(5)-l;IFX<5AND(V»0ORV«10RV'3)THENJ(T,6)«J{T,6)-l 

555 F0RZ=1TD200:NEXTZ 

560 J(T,2)=J(T,2)-H(V,A(X,0),l)iJ(T,4)=J(T,4)-H(V,A(X,0),0) 

570 NEXTY:IFH>0PRINTi704,H"MAIN ARMAMENT HITS ON "JtlDjCHRtlSD 

:F0RZZ=1T0500:NEXTZZ;H»0 

580 M=Ml;F0RY=lT0A(X,6)t2tZ=RNDI10)*N!lFZ>4THEN610ELSEH=HM 

600 V:RND(5)-1:J(T,2I=J(T,2)-H(V,A(X,1),1):J<T,4)=J(T,4)-H(V,AIX 

,11,01 

610 NEXTY,X:M=M1:IFH>OPRINT8768,H"SECONDARY ARMAMENT HITS ON "Jl 

(T);CHR$(31):H=0 

615 F0RZZMTO5O0:NEXTZ2:60T0880 

620 C=C+l;M=Ml-C:PRINT3640,CHRf(31) 

630 IFA(7,3)<1ANDNT<IPRINT'N0 TORPEDOES TO FIRE":F0RZZ=lT0500iNE 

XTZZ:80T0880 

640 IFA(7,3)<1ANDNT>9THENA(7,3)=10:NT=NT-10 

650 A(7,3)=A(7,3)-5:PRINT"TARBET ? (ENTER NUMBER PLEASE)":M=M1 

670 T««INKEY»;IFT»=""THEN670ELSET»VAL(T«liIFT<10RT>8PRINT"NO SUC 

H TARBET ":G0T0670 

680 T*T-1;IFJ(T,5)<1PRINT8704,J»(T)" SUNK SELECT ANOTHER TARBET" 

:BDT0670 

690 F0RY=1T05:Z=RND(I0)+H:IFZ>5THEN720 

700 V=RND(5)-1:J(T,2I=J(T,2)-H(V,6,1):J(T,4)=J(T,4)-H(V,6,0):H»H 

+1 

710 PRINT8704,H"HITS ON ■J«(T)iCHR«(220)iFORZZ=lT0200:NEXTZZ 

720 NEXTY:G0T08B0 

730 PRINT8640,CHR«{31))" 8 1 2":PRINT8710,"I":PRINT3771,"7-- 

+--3 ENTER NEM C0URSE";PRINT883B,"!";PRINT8899,"6 5 4"! 

760 I$=INKEY«;IFI»="'THEN760ELSEG=VAL(I«) 

770 IFG<10RB>8THEN760 

780 0NG60T0790,800,810,820,B30,B40,850,860 

790 A1=-64!B0T0870 

800 A1=-63:B0T0B70 

810 A1=1;BOTOB70 

620 Al=65:G0TO870 

830 Al=64:B0TOB70 

840 A1>63:B0T0870 

850 A1=»-1:B0T0B70 

continued on next page 
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centiiHied from previeas page 

SM Al<-65 

870 BDTOlfO 

880 IFC>lAN8Ni<3THEN1020ELSEK<HliPRINT3640,CHR((3i)|iH>0 

890 F0Ry=0T07iIFJ(y,5)<lTHEN1010 

B95 PRINT}M0,'INC0NIN6 JAPANESE FIRE FROM ■|J((Y))CHR«(S1) 

900 FDRX'On)7iIFA(ll,SI<lTHENItEn]|:60T04070 

910 T=TTiFO«X=lT01iNEXTXiTT«TT+l! IFTT>7TliENTT=0 

915 IFA(T,5)<.1THEN910 

920 F0RX=lT0J(Y,6)iZ=RNDU0)+H!lFZ>5THEN9<i« 

940 H»l(t.5tN=H+liV«RND(5)-l!lF(V=10RV«S)AMBY<4THENA(T,*)-A(T,*)- 

1 

950 A(T,2)M(T,2)-H(V,J(Y,0),l);A(T,4)«A(T,4)-H(V,J(Y,0),0) 

9i0 NEXTX;IFH>dPRINTa76B,H'HAIN MWAHENT HITS ON 'A«(TI)CHRI(3U 

iF0RZZ<lT0500iNEXTZ2iH>0 

945 IFY>5THEN1019 

979 FORX»lTOJ(Y,7)t2iZ«RNB(10)+N;IFZ>5THEN1000 

9MH-H+liV«RNB(5)-l;A(T,2)*A(T,2)-H(V,J(Y,n,l)iA(T,4)*A(T,4)-H 

(V,J(Y,1),0) 

1000 MEXTXiIFH>0THENPRINT»768,H"S£C0Nl)ARY ARHANENT HITS ON "A«(T 

litt^OtFBRZZ'lTOSOOiNEXTZZ 

1U« NEXTYiFORX-UOlOOsNEXTX 

1015 IFC>lTMEN3«2«ELSE14e 

1020 H»NliPIIIITa64«,CHRt(Sl)i'WC0»(lN8 JAPANESE TORPEDO FIREMF 

ftl>3TMEMN-IHl 

1025 FMtZl<lT83»fr:NEXTZZ 

1030 F8RI>4TOiiIFJ(X,3)>0ANIM(X,S)>OTHEN204OELKHEXT( 

1040 If(J(7,3)<lANDJT<l)0RJ(7,5)<lTlffN3O20 

1W« IFJ(7,3)<lMHIJT>9THENJ(7,J)«WiJT-JT-lO 

1040 Jt7,3)«J(7,3)-5 

1070 Ft»tX>»T07: IFA(X,5)<lTHEMNEXTXs60TD4070 

1080 T»TTiFBRX«lT01:NEXTXiTT=TT+liIFTT>7THENTT=0 



SPORTS FANS! 



WORLD SERIES 



written by David Boike 

Ah yes, it's springtime and a young 
man's thoughits turn to...baseball? How 
would you lil<e a basebali season withi no 
threats of piayer strikes or free agent 
negotiations that leave the shattered rem 
nants of once-mighty teams strewn about 
the playing fields? We offer you your own 
league. Batter up! 

S-80 16K Tape $9.95 

Apple 16K Tape $9.95 

Apple 32K Disk $14.95 

Atari 16K Tape $9.95 




MASTERS' GOLF 




written by David BoIke 

Tired of golf as a sport you can only 
play during the warmer half of the year? 
Now you can play it year 'round with 
MASTERS GOLF! For the Atari and the 
8-80, MASTERS GOLF promises hours and 
hours of delight. 

S-80 16K Tape $9.95 

Atari 8K Tape $9.95 




.Selection J 1 

6 5oulh3lr««t MilFord NH 03055 



1085 IFA(T,5)<1THEN1080 
1090 FORX-lT05iZ>RND(10)iH:IFZ>4THEN2030 

1100 V»RND(5l-liA(T,2)«A(T,2)-H(V,6,l)!A(T,4)=A(T,4)-H(V,4,0);PR 
INT9704, 'TORPEDO HIT ON ''At(T)iCHRt(31);F0RZZ-lTD500iNEXTZZ:IFT< 
7THENT»T+1 

1110 FORZZ=lT0500iNEXTZZ 
2030 NEXTX;S0T03O20 

2040 F=X;FQRX=lT0l!NEXTX:J(F,3)=J(F,3)-B 
2050 FDRX=OT07: IFA (X, 5)< ITHENNEXTX ! G0TQ4070 
2060 T=X:FQRX=1T01:N£XTX;IFT=8THEN4070 
2070 F0RX=lT0B!Z=RND(10)+HiIFZ>4THEN3010 
2080 V«RND(5)-l!A(T,2)=A(T,2)-H(V,6,l)!A(T,4)=A(T,4)-H(V,6,0)!PR 
INT8704, 'TORPEDO HIT ON "A«(T)jCHR»(31)iF0RZ=lT0500!NEXTZ!lFT<7T 
HENT=TH 
3010 NEXTX 

3020 PRINT9440,CH8( 131 1; 'CHECKING STATUS OF ALL SHIPS' ;FBRZZ<1T0 
400INEXTZZ 

3030 F0RX=0T«i!j(X,7)»0:IFJ(X,2)<10RJ(X,4)<lTHEMJ(X,5>=0iPRlNTJ$ 
IX)' SUNK',:FBRZ«1TS506:NEXTZ 
3050 IFA(X,2)<1BRA(X,4)<1THENA(X,S)=0 
3040 NEXTX:J(7,7)««!lfA(7,2)>00RA(7,4)>0THEN3090 
3070 A(7,5)m7,5)-liIFA(7,5)<lTHEN4020 
3080 AI7,2)«5iA(7,4)»2OjA(7,3)=10!NT*NT-ie 
3090 IFJ(7,2I>0(MJ(7,4I>«THEH4020 
4000 JI7,S)>JI7,S)-tiIFJ|7,S)<lTHEN4020 
4«10 JI7,2)'4iJ(7,4)«25{J(7,3)=10iJT«JT-10 
4020 F0RX»0T04i i IFJ IX,5)<iniCNNEXTXELSEfiOT04«40 
4030 CLSiPRIlTCItt«(23liPRINT'ALL JAPANESE CAPITAL SWPS SUNK'tPfi 
INT 

4040 PRINT'YtU HAVE SAWS THE LEYTE'iPRINTiPRINT'LANOINBS'iPRMT 
iPRINT 

4050 PRINT'TB PLAY AiAIN TYPE RUN'iEND 
4040 F8RX>0Te7iIFA(X,5)>0TNEN150 

4070 NEXTXiaSiPRINTCHR$(23);PRINT'Y0U LOST ALL YOUR SHIPS'iPRIN 
T 

4080 PRINT'HAYBE KINKAID'S SEVENTH FLEET'sPRINT 
4090 PRINT'HILL SAVE THE LEYTE LANDIN8S'!PRINT:PRINTiBOT04050 
5010 CLSiPRINTCHRt<23)iPRINT'THE JAPANESE HAVE REACHED LEYTE'iPR 
INT:60T04080 

4000 DATA 'YAHATO'.'NEN JERSEY', 1,2,4,4,35,33,0,0,300,275,1, 1,9, 
9,0,0 

4010 DATA 'NA6AT0','I0t(A', 2,2,4, 4,30,33,0,0,250,275,1, 1,8,9, 0,0 
4020 DATA 'KONGO', 'NASHINGTDN', 3,2,4,5,29,31, 0,0,250,250,1, 1,8,9 
,0,0 

4030 DATA 'HABURO', 'MASSACHUSETTS', 3,2,4,5,28,31, 0,0,250,250,1,1 
,8,9,0,0 

4040 DATA 'CHOKAI', 'ALABAMA', 4,2,5,5,25,31, 14,0,220,250,1, 1,8,9, 
0,0 

6050 DATA 'SUZUYA'.'BALTIMRE', 4,4, 5,5,25,25,14,0,220,200,1, 1,15 
,9,0,0 

4060 DATA 'NAGARA', "PITTSBURGH', 5,4,0,5,20,25,8,0,100,150,1, 1,7, 
9,0,0 

6070 DATA 'JAP, DESTROYERS', "U.S. DESTROYERS", 5,5,0,5,10,15,10,1 
0,50,55,8,6,6,5,0,0 

6080 DATA 20,2,15,1,12,1,8,0,2,0,20,1,25,2,20,1,15,1,10,0,3,0,15 
,1 

6090 DATA 18,1,15,1,12,0,7,0,2,0,17,3,15,1,15,1,11,0,7,0,2,0,17, 
3 

6100 DATA 17,2,15,2,12,2,10,1,3,1,20,5 

6110 DATA 384,385,386,387,388,325,326,327,264,265,244,247,248,24 
9,270,207,208,273,274,211,212,213,214,215,214,217,218,283,284,22 
1 

4120 DATA 284,287,224,289,290,291,228,229,230,295,294,233,298,29 
9,300,301,301,303,304,305,304,371,372,439,440,441,504,507,508,50 
9 

6130 DATA 510,574,999,999 

7000 FORX«lT01iNEXTX!FORY=lT0hNEXTYiF0RZZ«lT01iNEXTZZ 
7100 RESUHEISO 
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by Arnold E. van Beverhoudt, Jr. 

"ABM Command" is an arcade- 
style game for a 16K S-80. 

Enemy missiles are headed for the 
East Coast! As commander of the U.S. 
Air Defense Department, you are 
responsible for the launching of Anti- 
BaHistic Missiles to destroy incoming 
ICBMs. Although this simplified 
BASIC version of the popular arcade 
game is not as fast-paced as its 
Machine Language cousins, it is 
challenging and fun to play. 

Your ABM base is centrally located 
and has 10 missiles for each round. 
You must move a target marker to 
direct the course of your ABMs. You 
score 500 points for each ICBM you 
destroy, while the occasional spy 
satellites are worth 1000 points. 
However, you lose points for each 
ICBM that hits the ground: 50 points 
for rural areas between cities, 100 
points for outlying Boston and Miami, 
and 250 points for nearby New York 
and Washington. 

The game normally ends when all 
four cities have been destroyed; that is, 
when each has been hit by three 
ICBMs. But be warned: A direct hit on 




your launching base blows the base and 
your game! For each 25,000 points 
scored, you receive a bonus city. 

The game has five levels of difficul- 
ty, which are represented by the size of 
the warheads in your ABMs. At the 
easy level, your ABMs are equipped 
with large warheads; therefore, they 
don't have to be very accurate. 
However, at the hardest level your 
ABM warheads are very small and 
your aim must be perfect. 

Well, those enemy missiles are get- 
ting closer. Man your launch command 
post, and good luck! 

VARIABLES: 

A,B: Starting coordinates of ICBM 

flight path. 

A$,B$,C$: Graphic strings for title 

page missiles. 

AM: Counter for number of ABMs 

remaining in each round. 

BV: Counter for bonus points. 

C,D: Ending coordinates of ICBM 

flight path. 

DL: Difficulty level. 

E,F: Starting coordinates of ABM 

flight path. 



G,H: Ending coordinates of ABM 

flight path. 

I,J,K,L: Used to poke sound routine. 

IM: Counter for number of ICBM's 

in each round. 

M,N: Coordinates of target marker. 

R$: INKEYS cue for next page, etc. 

S: USR call for sound. 

SS$: Dummy string to poke sound 

routine. 

T: FOR/NEXT loop counter. 

TD: Random direction of spy 

satellite. 

TT: Used in random branch to ICBM 

or spy satellite routines. 

U1,U2,U3,U4: Counters for number 

of hits on each city. 

V: Player's score. 

W: Value of PEEK(14400). Used to 

check for arrow keys. 

X,Y: SET/RESET coordinates for 

ICBM/ABM explosions. 

XI, Yl: SET/RESET coordinates for 

ABM flight path. 

X2,Y2: SET/RESET coordinates for 

ICBM flight path. 

X3,Y3: SET/RESET coordinates for 

^y satellite. 

Z: FOR/NEXT loop counter. 

cenUmied on next page 




SoftSide October W81 



35 



continued from previous page 

10 REN ItnilUttttttMIUtnUMUIiUtM 
(tttlttlttt ABH CDHNAND tUtnUttt 

nUtU COPYRIGHT 10 1981 BV UUt 
tt ARNOLD E. VAN BEVERHOUDT, JR. It 

titutmttttuuiutuMutuiuu 



Lines 120-690: Title page and instructions. 

Goto sound routine. 

120 EDTO 3020 

Display lauching of missiles. 

IJO CLSs FOR T=1T05: PRINT: PRINT! C$=CHR$(191)! C1«=CHR»(1B4)! 

C2$=CHR((lB0l! C3$=CHR$(18M! C4t:=CHR$(181) 

140 l(=RND(53)+3i ft«=Cl$+C»+C2«! B$=C3»+C$+C$+C«+C4» 

150 PRINT TAB(X+l)iA«: PRINT TAB(X)|B»: FOR Z=1T06! PRINT TAB(XI 

;STRIN6»(S,Ct): NEXT Z 

140 PRINT TAB(X+l))"«»r! PRINT TABIlt) ;"»««»»"■. PRINT TAB()(+1)|" 

ttfi PRINT TAB(l(+2))"»"! S=USR(5000)! NEXT T 

170 FOR T'lTOli: PRINT: S=USR(5000): NEXT T 

Display title page. 

IBO PRINT CHR«(23)! PRINT: PRINT 

190 PRINT TAB(IO) 'ABH COHHAND"; PRINT: PRINT: PRINT 

200 PRINT TAB(6) 'COPYRIGHT (C) 1981 BY"; PRINT: PRINT: PRINT 

210 PRINT TAB(2) "ARNOLD E. VAN BEVERHOUDT, JR." 

220 PRINT: PRINT: PRINT 

230 FOR T=1T0750! NEXTT 

initialize variables and clear string space. 

240 CLEAR 500: DEFINTA-U,M-Z: RANDON 

245 X=0: Y=0: G=0: H=0 

250 U1=0: U2=0: U3=0: U4=0: V=0: IH=RND(4)+B! A«=10: BV=0 

Display instructions. 

260 CLS: PRINT "DO YOU NEED INSTRUCTIONS i'V OR 'N'l ?" 

270 R»=INKEY»: IF R$="" THEN 270ELSE 280 

280 IF LEFT$(R«,1)<>"Y" AND LEFT»(R»,1)<>"N" THEN 260ELSE 290 

290 IF LEFT»(R«,1)="Y" THEN 300ELSE 600 

300 CLS: FOR T=1T07! PRINTTAB(20) "RED ALERT! RED ALERT!": PR 

INT 

310 S = USRd): NEXT T: CLS 

320 PRINT "THE NORTH AMERICAN AIR DEFENSE CONHAND REPORTS THAT I 

NTER-' 

330 PRINT "CONTINENTAL BALLISTIC HISMLES ARE HEADED TOHARDS THE 

U.S. EAST" 
340 PRINT "COAST. AS COMMANDER OF THE U.S. ABM COMMAND, YOU ARE 

RESPDN-" 

350 PRINT "SIBLE FOR GUIDING ANTI-BALLISTIC MISSILES TO INTERCEP 
T AND" 

360 PRINT "DESTROY THE ICBM'S. YQU DO THIS BY MOVING AN ELECTRO 
NIC TARGET" 

370 PRINT "MARKER TO INTERCEPT THE ICBM'S FLIGHT PATH AND LAUNCH 
ING AN ABH." 

380 PRINT "YOUR MISSILE BASE IS CENTRALLY LOCATED, AND HAS 10 MI 
SSILES FDR" 

390 PRINT "EACH ROUND OF INCOMING ICBM'S.": PRINT 
400 PRINT "YOUR ABM BASE IS THE MAIN DEFENSE UNIT FOR BOSTON, NE 
U YORK" 

410 PRINT "CITY, WASHINGTON, AND MIAMI. BOSTON AND MIAMI ARE FA 
R FROM " 




420 PRINT "YOUR ABM BASE, AND ARE HARD TO DEFEND. NEW YORK AND 

NASHINGTON" 

430 PRINT "HONEVER, CAN BE EASILY DEFENDED.": PRINT 

440 PRINT "PRESS <ENTER> TO CONTINUE."): SS=USR(1000) 

450 R» = INKEY$: IF R$ = "" THEN GOTO 450ELSE 460 



BUT, YOUR SCORE IS R 



ND 1000 POINTS" 

470 PRINT "FOR EACH SPY SATELLITE YOU HIT. 
EDUCED BY" 

480 PRINT "250 POINTS FOR ICBM HITS ON NEN YORK OR WASHINGTON, 1 
00 POINTS" 

490 PRINT "FOR HITS ON BOSTON AND MIAMI, AND 50 POINTS FOR HITS 
ON RURAL" 

500 PRINT "AREAS BETNEEN THE CITIES. IF YOUR ABM BASE IS DESTRO 
YED BY A" 

510 PRINT "DIRECT ICBM HIT, THE GAME ENDS AND YOU LOSE.": PRINT 
520 PRINT "THE GAME NORMALLY ENDS NHEN ALL 4 CITIES HAVE BEEN DE 
STROYED," 

530 PRINT "THAT IS, WHEN EACH HAS BEEN HIT BY 3 ICBM'S. FOR EAC 
H 25000" 

540 PRINT "POINTS YOU SCORE, YOU GET THE BONUS OF HAVING BOSTON 
REBUILT.': PRINT 

550 PRINT "THE GAME HAS MULTIPLE DIFFICULTY LEVELS, WHICH CONTRO 
L THE SIZE" 

560 PRINT "OF THE NUCLEAR WARHEAD IN YOUR ABM MISSILES. THE LAR 
6ER THE" 

570 PRINT "WARHEAD, THE EASIER IT IS TO DESTROY THE ICBM'S." 
580 PRINT: PRINT 'PRESS <ENTER> TO CONTINUE."): S=USR(1000) 
590 R$ = INKEY«: IF R$ = INKEY» THEN SOTO 590ELSE600 
600 CLS: PRINT TAB(22) "ABM LAUNCH COMMANDS": PRINT 
610 PRINT TABIll) ■<ENTER> - TO LAUNCH AN ABH" 
620 PRINT TABdU CHR$(91lj" - TO MOVE TARGET MARKER UP' 
630 PRINT TABdl) CHRt(92)i" - TO MOVE TARGET MARKER DOWN" 
640 PRINT TABdl) CHR$(93)i" - TO MOVE TARGET MARKER LEFT" 
650 PRINT TABdl) CHR»(94))" - TO MOVE TARGET MARKER RIGHT" 
660 PRINT: PRINT 'GOOD LUCK! YOU AND THE ENTIRE EAST COAST WILL 
NEED IT." 

670 PRINT; PRINT "ENTER DIFFICULTY LEVEL - '1' (HARD) TO '5' I 
EASVl ?": S=USRd0001 
680 R$=INKEYt: IF R»="" THEN 6B0ELSE 690 
690 DL=VAL(R»I: IF DL<1 OR DL>5 THEN 670ELSE 1020 

Lines 1020-1140: Program control routine. 

Reset ICBM and ABM counters for new round. 

1020 CLS: FOR T=lT0500i NEXT T: GOTO 4020 
1030 GOTO 1070 
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1040 IN=RND(4)+8! AH=10: PRINT J393, "YOUR SCORE IS "fV;" -- THE 
ATTACK CONTINUES" 

1050 FOR T=1T010: FDR 2=1000T09000 STEPIOOO: S=USR(Z): NEXT Z: N 
iV T: PRINT J393," 

1060 PRINT J925, "-[-";: PRINT 8989, "10") 

1070 FOR T»64 TO 704 STEP 64i PRINT JT, STRINB$(64,12B)i! NEUT 

Reset target marker to start position. 

1080 RESET (H,N)i H=i4! N=20 
1090 SET(N,N) 
1100 TT=RND(100) 

Randomly set variable to branch for ICBM or spy 
satellite. 

1110 IF TT>'=20 THEN SOTO 5020ELSE SOTO 11020 

Check score for extra city bonus. 

1120 IF BV>=25000 THEN GOTO 10020ELSE 1130 

If all 4 cities are destroyed, branch to end-of-game. 

1130 IF Ul>=3 AND U2>=3 AND U3>=3 AND UA>=3 THEN 2020ELSE 1140 

Test for start of new round. 

1140 IF IH<1 THEN 1040ELSE 1070 

Lines 2020-2190: End-of-game routines. 

Compute final score and display game results. 

2020 PRINT 9256, STRINB$(64,"t")i! PRINT, "VOUR FINAL SCORE HAS" 

iV;:PRINT;PRINT 

2030 IF V <5000 THEN PRINT "ARE YOU AN ENEHY SPY? YOU LET THE E 

AST COAST BE DESTROYED"! PRINT "AND CAPTURED. YOU KILL BE TRIED 

FOR TREASON." 

2040 IF V>=5000 AND V<50000 THEN PRINT "HE KON THE WAR, NO THANK 
S TO YOU. THE CITIES HERE REDUCED TO"; PRINT "RUBBLE, AND THERE 

MERE VERY FEN SURVIVORS. YOU KILL BE REDUCED"! PRINT "IN RANK 
TO 'PRIVATE'." 
2050 IF V>=50000 AND V<100000 THEN PRINT "YOU DID A COHHENDABLE 

JOB AT DEFENDING THE EAST COAST CITIES."! PRINT 'THE ENEHY ATTA 
CK HAS REPELLED, BUT CASUALTIES HERE HEAVY. YOU"! PRINT "HILL B 
E PROHOTED TO COLONEL." 

2060 IF V>=100000 THEN PRINT "YOU DID AN OUTSTANDING JOB AT DEFE 
NDING THE EAST COAST CITIES."! PRINT "THE CITIES SURVIVED HITH H 
INOR DAHAGE AND CASUALTIES."! PRINT "YOU HILL BE RECOHflENDED FOR 

THE 'HEDAL OF HONOR'." 
2070 PRINT STRINB$(64,"»")i 

2080 FOR T=1T020! FOR 2=1000T09000 STEP lOOOi S=USR(Z)! NEXTZ! F 
ORZ=9000T01000STEP-1000! S=USR(Z)! NEJT Z! NEUT 

Prompt for new game. 

2090 CLS! PRINT "DO YOU HANT TO PLAY AGAIN CY' OR 'NM.'i ... 

2100 R«=INKEY$! IF R»="" THEN 2100ELSE 2110 

2110 IF LEFT$(R$,1I<>"Y" AND LEFT$(R$,1)<>"N" THEN 2090ELSE 2120 

2120 IF LEFT$(R»,1) = "Y" THEN 250ELSE CLS! END 

2130 CLS; FOR T=1T016! PRINT STRING$(64,191)i! S=USR(2000)! NEXT 

T 

2140 FOR T=lT016i PRINT STRINB$(64,128)!! S=USR(9000)i NEXTT 

2150 CLS! PRINT!PRINT!PRINT!PRINT TAB(5) "YOU JUST B L 

EH IT C « n A N D E R I ! I"!PRINT 



2160 PRINT TAB(5) "YOUR 
DYED ! !•: PRINT 



A B N BASE HAS D E S T R 



2170 PRINT TAB(9I 'HELL, SEE YOU IN S I B E R I 

A .' 

Display comments if ABM base was destroyed. 

2180 FOR T=1T030! S=USR( 250001: NEXT T 
2190 GOTO 2090 

Lines 3020-3090: Initialize sound. 

3020 SS»="///////////////////////////" 

3030 I = VARPTR(SS«): J = PEEK(I+l)+256»PEEK(I+2) 

3040 FOR K=JT0J+26i READ Li POKE K,L! NEXT K 

3050 IF PEEK (16396) =201 POKE 16526,PEEK(I+l)i POKE 16527, PEEKIU 

2)! GOTO 3070 

3060 CHD'T": DEFUSR0=PEEK(I+l)+256IPEEK<I+2)! POKE 14308,0 

3070 DATA 205,127,10,77,68,62,1,105,211,255,45,32,253,60 

3080 DATA 105,211,255,45,32,253,13,16,238,175,211,255,201 

3090 GOTO 130 

Lines 4020-4140: Display cities. 

4020 PRINT}720,CHR((176)iCHRt(160)+CHR$IM4) 

4030 PRINT3770, CHR»ll44)^STRIN6tl3,12B)^CHRII160)! 

4040 PRINT87B4, CHR«(191)+CHR«(170)+CHR«(149)+CHR«(190)+CHR$(14B 

HCHR((188)^CHR$I128)+CHRI(144); 

4050 PRINT8805, CHR$(144)+STRIN6«(2,128)KHR«(149)mRIN6$(15,12 

B)+CHR$(160)iSTRING(l6,128)iCHRtll88)i 

4060 PRINTS832, CHRI(i90)iCHR»(188)iCHR$(189)+CHR»(lB4)+CHR«(190 

)iCHR«(188)iCHR$ll86)+CHRt(191); 

4070 PRINT STRINGt(S,176)^CHR$(191l4CHR$(190KCHRt(181KCHR$(191 

UCHR((181)+STRING$(2,191)^CHR$(181)«CHR$(lB9)fCHRtn88); 

4080 PRINT STRINGt(4,176)fCHRt(128)4STRIN8f(4,176)+CHR((18B)tSTR 

INGt(2,191)+CHR((189)tCHR((180)+CHRtlt81)iSTRIN6tl3,18B)i 

4090 PRINT STRINB$W,176)tSTRINB$(2,191)tCHR«(18B)+CHR$(lB6)tCHR 

$ll91)+CHR${18B)+CHR»(191)+CHR$(184)+CHR»(190)+STRINB«(2,191)i 

4100 PRINT 9 897, 'BOSTON NEH YORK -•iCHR«(91)r- 

HASHINGTON HIANI" 

4110 PRINT 9 11, "It ABN COHNAND tt SCORE -'',V; 

4120 PRINT 9989, AN) 

4130 GOSUB 8280 

4140 GOTO 1030 

Lines 5020-5150: ICBM flight path. 
Randomly set ICBM start and end points. 

5020 A=RND(127)! B=3! C=RND(119)+4! D=36i IN=II1-1 

Set position of ICBM. Check for key press. 

5030 IF IH<1 THEN 1120 

5040 IF ABS(B-D) > ABS(A-C) THEN GOTO 5100 

5050 FOR X2=AT0C STEP SGN(C-A) 

5060 Y2=B+(B-D)/(A-C)»(X2-A) 

5070 IF Y2>35 THEN GOTO B020ELSE GOTO 5080 

5080 SET(X2,Y2)i S=USR(500)! GOTO 6020 

5090 NEXT X2! GOTO 5150 

5100 FOR Y2=BT0D STEP SGN(D-B) 

5110 X2=A+(Y2-B)»(C-A)/{D-B) 

5120 IF Y2>35 THEN GOTO 8020ELSE GOTO 5130 

5130 SET(X2,Y2); S=USR(500)! GOTO 6020 

5140 NEXT Y2 

5150 CLS; GOTO 1120 ~ ■: " 

Lines 6020-6360: Inkey and target marker routines. 

Peek memory for key press. 

continued on next page 
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continued from previous page 

6020 M=PEEK(14400) 
6030 IF H=1GDT06150 
6040 IF M^S 80T0 6170 
6050 IF W=64 60T0 6190 
6060 IF H=16 80T0 6210 
6070 IF K=32 60TD 6230 
6080 IF NMO GOTO 62S0 
6090 IF M=72 SOTO 6280 
6100 IF HM8 80TO 6310 
6110 IF W=80 GOTO 6340 

Branch to ABM launch routine. 

6120 IF TT<20 THEN SOTO 6130ELSE GOTO 6140 

6130 IF TD=1 THEN 8DT0 11070ELSE GOTO 11120 

6140 IF ABS(B-D)>flBS(A-C) THEN GOTO 5140ELSE 5090 

6150 E=60: F=40: B=H! H=N! AH=AI1-1 

6160 IF AN>=0 THEN 7020ELSE S=USRI9000): PRINT 8925, 

NT 8989, ■ ■)! GOTO 6120 



■OUT"|! 



Set new target marker position. 

6170 RESET(H,N)! N=N-l! IF N<6 THEN N=6 

6180 SET (N,NI: GOTO 6120 

6190 RESET(I1,N)! H=N+2; IF I1>123 THEN H=123 

6200 SET(I1,N)! GOTO 6120 

6210 RESET(H,N): N=N+1; IF N>30 THEN N=30 

6220 SET(l1,N)i SOTO 6120 

6230 RESET(I1,N); H=l1-2: IF I1<4 THEN N=4 

6240 SET(N,N)! GOTO 6120 

6250 RESET(H,N): H=N-1: N=N-l! IF I1<4 THEN N=4 

6260 IF N<6 THEN N=6 

6270 SETIN.N)! GOTO 6120 

6280 RESETIH,N): l1=H+l! N=N-l! IF I1>123 THEN H=123 

6290 IF N<6 THEN N=6 

6300 SET(H,N)! GOTO 6120 

6310 RESET (H,N); H=I1-1; N=N+1: IF H<4 THEN H=4 

6320 IF N>30 THEN N=30 

6330 SETIHjN)! GOTO 6120 

6340 RESET(I1,N): I1=)1+l! N=N+li IF 11)123 THEN M=123 

6350 IF N>30 THEN N=30 

6360 SET(n,N); SOTO 6120 

Lines 7020-7160: ABM flight path. 

Set and move ABM position. Branch to ABM 
explosion. 

7020 IF ABS(F-H) > ABS(E-8) THEN GOTO 7100 

7030 FOR )(1=ET0B STEP SSN(S-E) 

7040 n=F+(F-H)/(E-G)«(n-E) 

7050 SET(X1,Y1): S=USR(1000)i IF yi>35 THEN RESET(n,Yl) 

7060 NEXT XI I GOTO 9020 

7070 IF TT<20 THEN 7080ELSE 7090 

7080 IF TD=1 THfN GOTO 11070ELSE GOTO 11120 

7090 IF ABS(B-D)>ABS(A-C) THEN GOTO 5140ELSE 5090 

7100 FOR Y1=FTQH STEP BGNIH-F) 

7110 Xl=E+(yi-F)l(G-E)/(H-F) 

7120 SETUl.Yl): S=USR(1000)! IF Yl>35 THEN RESET(X1,Y1I 

7130 NEXT Yl: GOTO 9020 

7140 IF TT<20 THEN 7150ELSE 7160 

7150 IF TD=1 THEN SOTO 11070ELSE GOTO 11120 

7160 IF ABS(B-D)>ABS(A-C) THEN GOTO 5140ELSE 5090 



Lines 8020-8330: ICBM explosion. 
Display explosion. 

8020 FOR T=0T02 



8030 X=C-T-1: Y=D: SET(X,V); S£T(X+l,y+l): SET(X-l,y-l)! SET(X+1 

,Y-l)i SET(X-1,Y+1) 

8040 X=C: Y=D-T-li SET(X,Y)!SET(X+1,Y+1): SET(X-1,Y-1): SET(X+1, 

Y-1): SET(X-1,Y+1). 

8050 X=C+T+1: Y=D; SETIX.Y): SETIX+1,Y+1): SET(X-l,Y-l)i SET(X+1 

,Y-1>: SET(X-1,Y+1) 

8060 X=Ci Y=D+T+1: SET(X,Y)! SET(X+l,Y+n; SET(X-1,Y-1)! SET(X+1 

,Y-1)! SET(X-1,Y+1) 

8070 X=C-T; Y=D-T! SET(X,Y)! SET(X+1,Y+1I: SET(X-l,Y-l)i SET(X+1 

,Y-1)! SET(X-l,Ytl) 

8080 X=C+T! Y=D-Ti SETIX.Y): SET(X+1,Y+1): SET(X-1,Y-1): SET(X+1 

,Y-1): SET(X-1,Y+1) 

8090 X=C+T! Y=D+T; SET(X,Yl! SET(X+l,y+l)i SET(X-1,Y-1): SET(X+1 

,Y-1); SET(X-1,Y+1) 

8100 X=C-T: Y=D+T! SET(X,YI; SET(X+1,Y+Ui SET(X-1,Y-1): SET(X+1 

,Y-1): SET1X-1,Y+1) 

8110 FOR T1=1000T01005! S=USR(T1): NEXT Tl 

8120 NEXT T: FOR T=0T02 

8130 X=C-T-1: Y=D; RESET(X,Y): RESET (X+1,Y+1)! RESET (X-1, Y-1); R 

ESETtX+l,Y-l)! RESETIX-1,Y+1) 

8140 X=C; Y=D-T-1: RESETIX.Y); RESET(X+1,Y+1): RESET(X-l,Y-l)i R 

E5ET(X+1,Y-1): RESET(X-1,Y+1) 

8150 X=C+T+l! Y=D! RESET1X,Y)! RESET(X+1,Y+1): RESET(X-l,Y-l)! R 

ESET(X+1,Y-1)! RESET(X-1,Y+1) 

8160 X=C! Y=D+T+1; RESET(X,Y)! RESETIX+1,Y+1): RESET(X-l,Y-l)i R 

ESET(X+1,Y-1): RESET(X-1,Y+1) 

8170 X=C-T! Y=D-T! RESET(X,Y): RESETa+l,Y+l): RESET(X-1,Y-1): R 

ESET(X+1,Y-1)! RESET(X-1,Y+1) 

8180 X=C+T: Y=D-T: RESETIX.Y)! RESETIXn.Ytl)! RESET(X-l,Y-l)i R 

ESET(X+1,Y-1); RESET(X-1,Y+1) 

8190 X=C+T! Y=D+T: RESET(X,Y)! RESETIX+l.Y+l)! RESET(X-l,Y-lli R 

ESET(X+1,Y-1): RESET(X-1,Y+1) 

8200 X=C-T; Y=D+Ti RESET(X,Y)! RESET(X+l,Y+l)i RESET(X-l,Y-l)i R 

ESET(X+1,Y-1)! RESET(X-1,Y+1) 

8210 FOR Tl=i000TB1005! S=USR(T1)! NEXT Th NEXT T 

Decrement score for ICBM hits. 

8220 IF C=60 OR C=61 THEN GOTO 2130ELSE 8230 

8230 IF C<21 THEN V=V-100i BV=BV-100! Ul=UUli 60TD 82B0ELSE GO 

TO 8240 

8240 IF C>26 AND C<57 THEN V=V-250! BV=BV-250! U2=U2+li SOTO 828 

OELSE SOTO 8250 

B250 IF C>64 AND C<93 THEN V=V-250: BV=BV-250: 03=03+1: GOTO 828 

OELSESOTO 8260 

8260 IF OlOO THEN V=V-100: BV=BV-100! U4=U4+li GOTO 8280ELSE BO 

TO 8270 

Count ICBM hits on cities. 

8270 V=V-50i BV=BV-50! SOTO 8280 

8280 IF UK3 THEN PRINT8963,U1) ELSE PRINT8960, "DESTROYED"; 

8290 IF U2<3 THEN PRINT8980,U2) ELSE PRINTJ977, "DESTROYED"; 

8300 IF U3<3 THEN PRINT8999,U3; ELSE PR1NT8995, "DESTROYED"; 

8310 IF U4<3 THEN PRINT81018,U4; ELSE PRINT81014, "DESTROYED"} 

8320 PRINT 847, V; 

8330 FOR T=1T0250! NEXTT: SOTO 1120 

Lines 9020-9370: ABM explosion. 
Display explosion. 

9020 IF DL=1 THEN 9030ELSE 9090 

9030 X=B: Y=H 

9040 SET(X,Y)i SET(X+1,Y+1)! SET(X-1,Y-1): SET(X+1,Y-1): SET(X-1 

,Y+1) 

9050 FDR T1=300T0500 STEPIO: S=USR(T1); NEXT Tl 
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9010 RESET(1(,Y); RESETIM.Y+l)! RESET(M,y-l): RESETIl(+l,y-l)! 
RESET(M,y+l) 

?070 FOR T1«J00T0500 STEP 10: S=USR(T1)! NEXT Tl 
9080 BOTD 9290 
9090 FOR T=0T0DL-2 

9100 X'S-T-l! Y=H: SET()(,Y); SET(ll+l,y+l): SET(M,y-l)i SET()(+1 
,y-l)! SET(M,y+l) 

9110 t'ii y=H-T-l! SEKX.Y): SET(l(+l,y+l)! SET(M,y-l): SET()(+1 
,y-l)! SET(M,Y+1) 

9120 X=6+T+l! y=H: SET(X,y)i SET(X+l,y+l)i SET(X-l,y-l); SET(X+1 
,Y-ll! SETIX-l,y+l) 

9130 X*B! y=H+T+l: SET(X,y): SET(X+l,y+l); SET(X-l,y-l)! SET(X+1 
,Y-l)i SET(X-1,Y+1) 
9140 t'5-V. y=H-T: SET(X,y)! SET(X+l,y+l)! SET(X-l,y-l)! SET(X+1 

,y-i)! sET(x-i,y+i) 

9150 X=e+T: y=H-T! SET(X,Y)! SET(X+l,y+l); SET(X-l,y-n; SET(X+ 

i,y-i)i SETix-i,y+i) 

9160 X=B+T! Y=H+T! SET(X,y): SET(X+l,y+l): SET(X-l,y-l)! SET(X+1 

,Y-l)i 8ET(X-l,y+l) 

9170 X»6-T! y=H+T! SET(X,y): SET(X+l,y+l); SET(X-l,y-l): SET(X+1 

,y-l): SET1X-I,y+1) 

9180 FOR TU300T0500STEP25! S=USR(T1)! NEXT Tl 

9190 NEXT Tl FOR T=0TODL-2 

9200 X=B-T-1: Y=H! RESET(X,y): RESET(X+l,y+l); RESET(X-l,y-l)! R 

ESET(X+l,y-l); RESET(X-liy+l) 

9210 X=B! y=H-T-l! RESET(X,Yl! RESET(X+l,y+ll; RESET(X-l,y-l): R 

ESET(X+l,y-l): RESETa-l,y+l) 

9220 X=B+T+1: y=H! RESET(X,Y)i RESET (X+l.y+l): RESET(X-l,y-l)i R 

ESET(X+l,y-l): RESET(X-l,y+l) 

9230 X=S; y=H+T+li RESET(X,y)i RESET(X+l,Y+l)i RESET(X-l,y-l)! R 

ESET(X+1,Y-1); RESET(X-l,y+l) 

9240 X=6-T! y=H-T: RESET(X,y): RESET (X+1,Y+1): RESETtX-l,y-l)! R 

ESET(X+l,y-l)i RESET(X-l,Ytl) 

9250 X=S+T: y=H-T! RESET(X,Y): RESET(X+1,Y+1): RESET(X-1,Y-1)! R 

ESET(X+1,Y-1)! RESET(X-l,y+l) 

9260 X=B+T! y=H+Ti RESET(X,Y)! RESET(X+1,Y+1): RESET(X-l,y-l); R 

ESET(X+l,y-l-): RESET (X-l,y+l) 

9270 X»B-T! Y=H+T: RESET{X,y)i RESET(X+1,Y+1I: RESET (X-l,y-l)i R 

ESET(X+1,Y-1)! RESET(X-l,y+l) 

92B0 FOR TU300T0500STEP25; S=USR(T1): NEXT Tl: NEXT T 



Check if ABM HIT ICBM or spy satellite, and update 
score. 

9290 PRINT S9B9, AH; 
9300 IF TT<20 THEN BOTO 9330ELSE 9310 

9310 IF P0INT(X2,y2)=-l THEN SET(H,NI: BOTO 9360ELSE BOTO 9320 
9320 IF P0INT(X2,Y2)=0 THEN V=V+500i BV=BV+500s PRINT i 47, Vji 
BOTO 9350 

9330 IF P0INTIX3,10)=-1 THEN SET(H,N): GOTO 9370ELSE BOTO 9340 
9340 IF P0INT(X3,10)=0 THEN V=V+1000! BV=BV+1000i PRINT J47, Vji 
BOTO 9350 

9350 FOR T=1T0250! NEXTTi BOTO 1120 
9360 IF ABS(F-H)>ABS(E-B) THEN BOTO 7160ELSE 7090 
9370 IF TD=1 THEN SOTO 11070ELSE 60TD 11120 



Lines 10020-10070: Display bonus city. 



10020 PRINT a 399, 'BONUS CITY -- BOSTON HAS BEEN REBUILT"; 
10030 FOR T=1T010! FOR Z=9000T01000 STEP-1000: S=USR(Z)! NEXT Zi 
NEXT Ts PRINT 9399, ' "i 

10040 Ul'Oi PRINT 3963, Ul; 
10050 PRINT 9770, CHR((144KSTRINB$(3,12B)iCHRt(160); 



10060 PRINT 9832, CHR«(190)+CHR»(lBBI+CHR«(lfl9)+CHRHlB4)+CHR$(l 

90liCHR((188)^CHRtll86)4CHRt(191); 

10070 BV=0: BOTO 1130 



Lines 11020-11130: Spy satellite routine. 



Select random direction. 



11020 TD=RND(2) 

11030 ON TD BOTO 11040, 11090 



Set motion across screen. Check for key press. 



11040 FDR X3>1T0126 STEP RNDI5)^2; S=USRI9000) 

11050 SET(X3,10): SET(X3-l,9)i SET(X3-1,11): SET(X3+1,9)! SET(X3 

+1,11) 

11060 SOTO 6020 

11070 RESET(X3,10)i RESET(X3-1,9): RESET(X3-1,11)! RESET(X3+1,9) 

: RESET! X3+1, 11) 

HOBO NEXT X3: BOTO 1120 

11090 FOR X3=126T01 STEP-RND(5)+(-2); S=USR(9000) 

11100 SET(X3,10): SET(X3-1,9)! SET(X3-l,ll)i SET(X3+1,9); SET(X3 

+1,11) 

11110 GOTO 6020 

11120 RESET(X3,10)i RESET 1X3-1,9): RESET(X3-1,11); RESET(X3+1,9) 

; RESET(X3+1,11) 

11130 NEXT X3: BOTD 1120 
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by Roger W. Robitaille, Sr. 

Rough and tumble gridiron action, from the 
toss of the coin to the 2-minute warning... 
Four 15-minute quarters, provisions 
for interceptions, touchbacks, 
timeouts, fumbles, 
penalties. Everything 
except the 
cheerleaders. 

S-8016KTape 
$14.95 




S-80 32K Disk 
$15.95 
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Developing Data Base 



The DATABASE Series is copyrighted 
1981 by Mark Pelczarski. It may be 
reprinted with written permission from 
the author. 



Since the last "Database" article ap- 
peared in SoftSide, I've had plenty of 
requests to have the program listed in 
its entirety, along with a compiled set 
of instructions for using the database. 
This article has the Apple RAM ver- 
sion listed (with several modifications 
from the last published copy) and a 
summary of the options. I hope to have 
a new Atari version soon, so stay 
tuned. I'd also like to hear from 
anyone interested in doing some 
translations for the TRS-80. The next 
step is to use random-access disk files 
for storage, and the Apple version is 
already well ahead of that. Anyone in- 
terested in advanced updates should let 
me know. For now, here's the final 
RAM version for the Apple! 

Running The Database 

The first choice you will be presented 
is whether to initialize a new file or 
load an existing file. The first time you 
use it, you'll have to initialize a file. 
Thereafter, when you want to access 
that data, you will load the file. 
Anytime you want to create a new file 
with a different type of data, you'll use 
the initiaUze option. Several different 
files will fit on a disk and you can use 
as many different data disks as you 
like. A few examples of files would be 
a mailing list (name, address, city, 
etc.), checkbook list (to whom, 
withdrawals, deposits...), and an in- 
ventory list (stock number, description 
number, in stock, on order, etc.). 
Whatever records you want to keep can 
usually be stored in this type of 
database format. 

To initialize a new file, you must 
give your file a name, then tell the com- 
puter how many headings you want 
and the names of the headings. An ex- 
ample would be a file named "Ad- 
dresses, "with six headings: Name, 
Street Address, City, State, Zip Code, 
and Phone Number. You might want 
to add an extra heading (or more) for 
some kind of code. I might use "Com- 
puter" for my seventh heading, so I 
would know what kind of computer a 
particular person owns. (Not necessary 
for your average Christmas card 
list....) 

Your data will be organized into 
what you can picture as a table. The 
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headings should be your column 
headings, and each row would have 
one set of information across those 
headings. A set of such information is 
called one record. Once a file has been 
created, any future time that you use 
the database you only have to give the 
file name ("Addresses" is our ex- 
ample) and all the information will 
automatically be loaded from disk. 

The Main Options 

After initialization or loading, you 
are given a list of choices for 
manipulating your database. Here are 
the choices in brief form: 
(S) SAVE current data 
(?) PRINT data (to screen or printer) 
(A) ADD new data 

(C) CHANGE some of your data (such 
as an address change) 

(D) DELETE a record (no card for him 
next year!) 

(T) SORT 

(F) FILE names - catalogs the disk 
(N) NEW data file - equivalent to quit- 
ting and re-running program) 
(Q) QUIT - done (don't use RESET to 
get out or you may lose some data) 

Adding A Record 

This is your logical first choice since, 
with no data in memory, the other op- 
tions aren't too much fun. Choose (A) 
from the options page and you'll be 
asked for information to fill each of 
your headings for one record. After 
you've filled one record, you'll be 
returned to the options page. Note that 
commas and semicolons don't work in 
the data. Also see the note below about 
searching and sorting numeric fields, if 
you plan to do such. 

Printing A Record 

To see if your data is really there, 
type "P" to print your record. The 
program will ask if you want it put in a 
special format (S) or default format 
(D). Choose (D) for the moment. After 
choosing, you'll be asked if you want it 
on the screen (S) or the printer (P). 
Then, after that choice, a Ust of 
headings will be displayed, followed by 
the choices "Begin" and "Return to 
Menu." Choose the number next to the 
word "Begin" and press RETURN. 
Each record that you have in memory 
will be displayed in sequence. If you're 
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printing them to the screen, pressing 
any key advances to the next record. 
The ESC key returns you to the option 
page. All the other choices mentioned 
above will be explained under 
"searching" and "formatting." 
Searching 

When printing, changing, or deleting 
records, you have the choice of selec- 
ting individual items, subsets of your 
data, or the entire set of data. This is 
done through the search routine. When 
you used the print routine above, you 
chose to print all the data by selecting 
"Begin" before any other choice. Each 
of the headings is also listed at that 
point, along with "Record Number." 
By choosing the number beside any of 
the headings or "record number," you 
elect to do a search under that heading. 
You are then asked if you want to look 
for an item that is less than or equal, 
equal, or greater than or equal, to a 
value you'll give. After choosing 1, 2, 
or 3, respectively, you'll be asked for a 
value for comparison. Example: If you 
want to search for all records with 
names starting with A through G, you 
would want NAME, < ,G, where "G" 
is the value used for comparison. If 
you want all records from number 20 
through the end of the file, you would 
choose RECORD NUMBER, > ,20. 

You also have the option of specify- 
ing the beginning of a value for com- 
parison. If you wanted all records from 
people whose zip code starts with a 
"60" (as 60185), you can specify ZIP 
CODE, = ,60*. The asterisk says that 
anything may follow. This is also an 
easy way to find records without know- 
ing exact information. If you can't 
spell "Pelczarski" (or if you don't like 
typing) you can try "PEL*" and you'll 
find the record. 

To start the actual search, you must 
choose "Begin." A hidden option here 
is you can specify several search 
criteria. I might, for example, want to 
find everyone in my list whose zip code 
starts with a "60" and who owns an 
Apple. I would specify ZIP 
CODE, = ,60*, then I would specify 
COMPUTER, = ,APPLE, and then 
tell it to begin. The program will ask if 
I want the item to meet all of the condi- 
tions, or any of the conditions. 



"ALL" would find only those with zip Saving A File without rerunning the program by 

60 who also own an Apple. "ANY" When you want to sign off for the selecting (N) from the options. Be sure 

would find everyone with zip 60, plus ^^y (gr even for a minute), typing (S) ^° verify that the current file has been 

everyone owning an Apple (technical- from the options page saves your cur- saved. 

ly, everyone with zip 60, or owning an rent file on disk. It's an excellent idea, Formatting Output 

^t'^^inenS/" .? vn,?'lv" loot T ''^'''^^^^ ^^* important information, jhe formatter in this database may 

™nf l'o.P nZ.T/rf. wHh n '° '^^ '^'' ''^''^' ''''''^ '^° '^^^'^'' be One of the most versatile ones 

everyone whose name starts with D disks, one as a backup. Just in case... around Althoueh there are still a few 

through F( > D and < F), zip starts with ^ ' "^ around Altnougn there are still a tew 

9, and owns an Atari and an Apple, S«'"t»"g things it can't do it does a lot that 

etc The (T) option from the menu allows "lo^t professional databases don t 

your items to be sorted in ascending or allow. Basically, you can specify the 

Changing Records descending order, under any heading. exact form in which you want each 

To change a record, choose (C) from Alphabetic items are sorted record printed . Each record is printed 

the options page. After specifying alphabetically, and numeric items are in sequence, meaning that you cannot 

whatever search criteria you want, the sorted as strings. The latter means that ™^ records across a page. At the pre- 

appropriate record(s) will be shown on numbers don't always sort the way you sent time, there is no way to print a 

the screen. The items under each want. 125, 34, and 7 will come out in one-time heading. (Hint for the adven- 

heading will then be shown in se- that order due to the first character in turous programmer: A one-time 

quence, and the program will wait for each. To get a true numeric sort for heading has to be done before line 

you to type "K" to keep, "C" to now, you'll have to add leading zeros 3050, which jumps to the search 

change, or "R" if the remainder of the to the maximum number of places, routine.) You can specify which 

record is okay. If you type "C", you'll such as 007, 034, and 125 which will headings are to be printed and where, 

be asked for the information with then force proper sequencing. which items are to be printed and 

which to replace the old item. Cataloe ^^^''^' ^^^ ^^^^ ^^^ ^^^^ additional 

^ character strings should be printed on 

Deleting Records Fro^n the program, you can get a the form. (You may want to include 

After choosing (D) from the options ht'Sna'rFffnr^fZ«'i'..°&f<= v^rv ^°"' 'T^^^'l "T"' ^" ^"'^^J'^^i ^u " 
nase and eoine throueh the Tearch by typing (F) for filenames. This is very sion of a heading instead of the 

stcDs the recSs) in Quest on will be ^^'P^"^ '^ y°" "^^"'^ remember a second heading itself, or just some lines to 

steps, the record(s)m question will be jjj^ ^ importantly, a for- separate items ) 

displayed, and you'll be asked to verify „„* „o^^ bcpaiaic ncmb.) 

that you want one particular record 1"^^ name. To create a format, choose the 

deleted. Once it's deleted, it's gone. Switching Data Files special format option when prmting. 

Type "Y" to delete. You can load or create a new file ^ou 11 be asked if you want to load or 

continued on nei^ page 

^^^^H^^^^k ^H^^ ^^^^^ ^1^ The Paper Tractor is a unique solution to the restrictive 

^B^^^^^^^l ^B ^1 ^^^^1 ^^^^ nature the tractor 

^ ^^^^H ^1 ^1 ^^P^^ ^1 ThePaperTractor is designed to work with: 

^H ^H ^1 ^^ ^1 ^1 ^H^l * Matrix, Impact, Daisywheel and Ink Ejection printheads. 

^H ^^H^l ^Ik^^P ^^l^^r ^H 

^^^^^^^ ^^^^^ ^H^^^ ^^^^^ ^^ • Forward and reverse plotting printers. 

I^H^^H ^1 ^B ThePaperTractor Is also designed with: 

^^^^^* ^^^ ^^^ ^^B ^^^ TM • Self-aligning feed, 

^H ^H^l^fl^^ ^0^^^ ^^^H ^fl^^ ^H^l * ^>Jt<="^3tlc positioning of letter or legal size paper with 

^H ^1 ^^f^l ^1 ■■ ^1 ^1 ^1^1 * '^''ov^ri with all majormanufacturer's printers, including 

^■^1 ^B^^H^L^B ^L^L^B^I Epson,Tiger,TI,GP-80M,DEC-Writer, Commodore, 

H ^1 ^BP^I ^S^^ ^H ^B^^ ^1 Centronics, RadioShackVVIVII, Beehive, Vista,Grafix- 

Plus, Axiom, Coment, Hl-Q, DIP, C-ITOH, Cromemco, 

The Paper Tractor™ turns your tractor feed printer into Okidata and many more. 

a friction feed printing system. Inexpensively. 

With The Paper Tractor you can abandon dull 

continuous form stock and move into new realms of #15-2660018 $19.50 

high quality personalized writing paper. Without costly 

hardware modifications. ^^^^^E\ |flSi| ^ST 

This revolutionary product acts as a carrier, protecting Bl^^^U^^^^^ 

and guiding any standard letter or legal size paper ^^^ w^^^^^Ww.-. •.'.•:.'% ^^ 

through the printing area. Any paper. Bond, parch- ^TtP 'HCB^^jSl^Jt^ 

ment, onionskin, vellum, NCR, manuscript paper (sheet 1^^^' ■■ ■^I^WII^^ 

. , _ iT *r \1 li 6 South St., Milford, NH 03055 (603)673-5144 

music). Even your company or personal letterhead. TOLL FREE OUT-OF-STATE 1-800-258-1790 
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continued from previous page 

create one. The first time, you'll have 
to create it. Draw out exactly what you 
want printed for your form. You'll be 
telling the computer, hne by Hne, what 
it looks like. Your choices are (1) 
Heading, (2) Item, (3) Tab, (4) Next 
line, (5) String, and (6) End. Here's 
one example using the "ADDRES- 
SES" file I mentioned earher. The for- 
mat will print mailing labels like this: 

Mark Pelczarski 

1206 Kings Circle 

West Chicago IL 

60185 

Here are the format commands 
(numerically, my headings are 1 Name, 
2 Address, 3 City, 4 State, 5 Zip, 6 
Phone, 7 Computer): 



Commands 


What to Type 


Item, Name 


2,1 


Next Line, 1 


4,1 


Item, Address 


2,2 


Next Line, 1 


4,1 


Item, City 


2,3 


Tab, 16 


3,16 


Item, State 


2,4 


Next Line, 1 


4,1 


Tab, 12 


3,12 


Item, Zip 


2,5 


Next Line, 3 


4,3 


End 


6 



The "1" after the next line means to 
skip down one line. The "3" at the end 
skips down three lines before printing 
the next label. Note that none of the 
actual headings are used in this format, 
and neither is the phone number. 

Another example is a format that 
will print a separate little form for each 
person in the database. For lack of a 
better example, I'll have the following 
printed: 



I 



THE FOLLOWING PERSON OWNS 

AN 

APPLE 

NAME JOE TATE 
PHONE 555-1212 



Here's the format to do it: 

String, 

Next Line 1 

String, THE FOLLOWING PERSON 

OWNS AN 

Next Line, 2 

Tab, 9 

42 



Item, Computer 

Next Line, 2 

Heading, Name (Type "1" for hdg.#) 

Tab, 7 

Item, Name (Type "1" for item #) 

Next Line, 1 

Heading, Phone (hdg.#6) 

Tab, 7 

Item, Phone 

End 

I'll let the top line of the next item to be 
printed be the bottom line for the last, 
so I can just end the format after print- 
ing the last item. 

That's all there is to formatting. 
Play around with it a Uttle to see what 
it does for you. After a format is 
created, you'll be asked to name it, and 
it will automatically be saved to disk. 
In the future, you'll be able to load it 
back in when you need it. 

A Few Final Words 

There are a lot of things this 
database program still cannot do, but 
it is a good introduction for those of 
you who don't know all of what a 
database program can be used for. As 
yet, it has no real numeric capability; it 
doesn't take advantage of of disk 
capabiHties; and some of the routines 
are slowwww. On the plus side, it has a 
lot of the features you should look for 
in a database, and if you ever decide to 
shop for one (they're expensive) you'll 
have an idea of the features to con- 
sider. I'm amazed that there are $200 
database programs out there that don't 
even have basic sorting functions; and 
most only have a rather primitive print 
formatting. 

Thanks to those who have con- 
tributed suggestions to this program; 
many have been incorporated into it 
already, and dozens are still working 
their way in. It may be of interest that 
we are using the random access disk 
version of the Apple database in our 
business (recently renamed "Penguin 
Software"... funny how those things 
start) and we're keeping our maihng 
lists, inventory lists, registration card 
lists, and even an author/article list for 
a book on it. In a way it's good, 
because as the program gets bigger, it 
takes longer to test for bugs. On the 
other hand, when we find one... zap! 

In answer to the many (many, many, 
many...) requests Mark has received 
for help on typos, he is making 
available a disk copy of the Apple 
Database for $5 (including postage and 
handling). Write to Penguin Software, 
1206 Kings Circle, West Chicago, IL, 
60185, and be sure to state you're re- 
questing the Apple version. SoftSide 
takes no responsibility for products of- 
fered by other companies. 

SoftSide October 1981 
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REN DEVEL0PJN6 DATA BASE 


15 


REN COPYRIGHT 1981 


20 


REN NARK PELCZARSKI 


100 D« « CHM (4) 


101 HX ' 200 


105 


DINC«(7),C1X(7),C2X(7),F«(5 

V 


110 


HONE 1 PRINT MI) INITIALIZE 




A NEN DATA SET' 


120 


PRINT "(L) LOAD A PREVIOUSLY 




SAVED DATA SET ?'| 


130 


6ET All PRINT A» 


MO 


IF A* « "L" THEN 6DSUB 1000 




1 60TD 200 


150 


IF A$ = 'I- THEN 80SUB 1500 




1 eOTO 200 


160 


SOTO 130 


200 


POKE 216,01 HONE i PRINT 'IS 




) SAVE CURRENT DATA" 


220 


PRINT "(P) PRINT DATA- 


230 


PRINT MA) ADD DATA- 


240 


PRINT "(C) CHANGE A RECORD- 


250 


PRINT "(D) DELETE A RECORD" 


260 


PRINT -(T) SORT- 


270 


PRINT "(F) FILE NANES- 


280 


PRINT "(N) NEW DATA FILE- 


290 


PRINT -(B) BUIT" 


295 


PRINT 1 PRINT "YOU HAVE ROOH 




FOR -| FRE (0) - 50)" HORE 




CHARACTERS" 


300 


SET Ati PRINT Atl PRINT 


320 


IF At > "S" THEN 80SUB 2000 




1 80TD 200 


330 


IF A« » "P- THEN 60SUB 3000 




1 6DT0 200 


340 


IF M ' -A* THEN 60SUB 4000 




1 80TD 200 


350 


IF A« « -C- THEN SB » 3i 60SUB 




80001 8DT0 200 


360 


IF Al « "D" THEN SB ■ 4jFS = 




li 80SUB SOOOi SOTO 200 


370 


IF Al « "T- THEN 60SUB 7000 




1 6DTD 200 


380 


IF Al < -F- THEN 60SUB 600i 




BOTO 200 


400 


IF Al « "B" OR Al » "N" THEN 




500 


410 


GOTO 200 


500 


IF SS > 1 THEN 540 


510 


PRINT "CURRENT FILE IS NOT B 




AVED."i PRINT "DO YOU STILL 




NANT TO BUIT? (Y/H) "|i BET 




Tl 


520 


IF Tl = -H' THEN 200 


530 


IF Tl < > "Y- THEN 510 


540 


IF Al « "N" THEN CLEAR » SOTO 




100 


550 


END 


600 


PRINT Dlf "CATALOG"! GET All RETURN 



Load lubroutinc. 


2260 NEXT Ji NEXT I 


3850 Al = HI(N)i GOTO 3950 




2270 PRINT DI)"CLOBE"|FI + ".DAT 


3860 Al ■ II(I,N)i BOTO 3950 


1000 IWUT "FILE NAHE? "jF* 


• 


3870 Bl = LEFTI (BI,N - l)i IF LEN 


1010 OKERR GOTO 1310 


2280 SB > li RETURN 


(Bl) < N - 1 THEN FOR J2 = 


1020 PRINT D«i'OPEN"|F«j".DAT' 


2290 PRINT "DISK ERROR'i BET All 


LEN (Bl) TO N - 2iBI > Bl * 


1030 PRINT D<j'READ')F« * '.DAT' 


BOTO 200 


" "1 NEXT 
3880 GOTO 3960 


1040 INPUT NHi INPUT NI 


Print subroutine. 


3890 PRINT Bit IF N > 1 THEN FOR 


1130 DIN H((NH),IIIH1(,NH) 




J2 » 2 TO Ni PRINT i NEXT 


1140 FDR I ' TO NHi INPUT Hid 


3000 IF NI = - 1 THEN GOBUB 90 


3900 Bl » "1 GOTO 3960 


)i NEXT 


OOi RETURN 


3910 IF J > LEN (FKT)) THEN T « 


1200 IF NI = - 1 THEN 1280 


3005 PRINT "(B) BELECT FORHAT, 


T + liJ » 1 


1240 FOR I < TO NI 


R (0) DEFAULT') 1 BET All PRINT 


3920 J2 « J 


1250 FOR J = TO NH 




3930 IF MIDI (FI(T),J2,1) < > 


1260 INPUT I«(I,J) 


3006 ]? M - "S" THEN GOBUB 100 


■!" THEN J2 = J2 + It SOTO 3 


1270 NEXT Ji NEXT I 


OOiFS « 2i GOTO 3010 


930 


12B0 PRINT Dli'CLOSEMPt * '.OAT 


3007 IF Al < > "D" THEN 3005 


3940 Al » MIDI (FI(T),J,J2 - J)! 


• 


3008 FB ' 1 


J s J2 + 1 


1300 B8 > li RETURN 


3010 PRINT "(B) SCREEN, OR (P) P 


3950 Bl = Bl + Al 


1310 PRINT "FILE NOT FOUND'i GET 


RINTER")! GET All PRINT 


3960 IF J > LEN (FKT)) THEN T « 


All POKE 21&,0i GOTO 110 


3020 IF Al ' "P" THEN BB = 2i GOTO 


T + liJ = 1 




3050 


3965 GOTO 3820 


Initiiliz* iubroutint. 


3030 IF Al < > "8" THEN 3010 
3040 SB = li PRINT i PRINT "AFTER 


3970 PRINT Bli RETURN 


1500 INPUT 'GIVE YOUR FILE A NAN 


EACH RECORD <EBC> HILL RETU 


Add subroutine. 


E 1 "iFI 


RN TO"i PRINT 'THE MENU, ANY 




1510 IF Fl « "" THEN 1500 


OTHER KEY CONTINUES." 


4000 SB > OiNI = NI M 


1520 INPUT "HON MANY HEADINGS? ' 


3050 PRINT '<PREBB ANY KEY>'| GET 


4005 PRINT 1 PRINT 'RECORD ')NI + 


|NH 


All GOBUB 8010 


li PRINT 


1530 IF NH < 1 THEN 1520 


3090 IF SB « 2 THEN PRINT DI)"P 


4010 FDR J O TO NH 


1540 NH > NH - liNI > - 1 


RtO" 


4020 PRINT HI(J)|i INPUT " i ")! 


1560 DIH HI(NH),IIIHX,NH) 


3100 RETURN 


I(NI,J) 


1570 FOR I » TO NH 




4030 NEXT J 


1580 PRINT "HEADING f|I M|i INPUT 


Print one record to screen. 


4040 RETURN 


• 1 "jHUD 
1590 NEXT I 


3300 HOHE 1 ON FB GOBUB 3700,380 


Change subroutine. 


1600 SB > Oi RETURN 





5000 PRINT 1 PRINT '(C) CHANGE I 




3310 IF SB = 2 THEN 3350 


TEM, (K) KEEP ITEM, OR'i PRINT 


Hritt iubroutint. 


3340 IF SB < > 4 THEN GET All IF 


'(R) KEEP REMAINDER OF RECOR 




Al ' CHRI (27) THEN RS ' 1 


D" 


2000 PRINT "USE *|FI)' AS NAHE ( 


3350 RETURN 


5030 PRINT 1 PRINT "RECORD ")I + 


YyN)?"M BET All PRINT Al 




1 


2050 IF Al « "Y" THEN 2090 


Print one default. 


5040 CS » liRS « Oi FOR J = TO 


2060 IF Al < > "N" THEN 2000 




NH 


2070 INPUT "NAHE? "jFI 


3700 PRINT 1 PRINT 'RECORD 'jl + 


5050 PRINT 1 PRINT HI (J))' i "jl 


2080 IF Fl • ■• THEN 2070 


li PRINT 


Id, J))" ') 


2090 DNERR GOTO 2290 


3710 FOR J « TO NH 


5055 IF RS » 1 THEN PRINT i GOTO 


2100 PRINT DI|'OPEN"|FI + ".DAT" 


3720 PRINT HI(J),II(I,J) 


5090 




3730 NEXT J 


5060 GET All IF Al < > "C" AND 


2110 PRINT DI|"HRITE')FI + ".DAT 


3740 RETURN 


Al < > "K" AMD Al < > 'R' THEN 


1 

2120 PRINT NHi PRINT NI 


Print one foriat. 


5060 
5070 PRINT All IF Al ' 'K" THEN 


2130 FOR I > TO NH 


3800 J » liT = OiBI » " 


5090 


2140 PRINT Hill) 


3820 Jl ' VAL ( MIDI (FI(T),J,1) 


5075 IF Al = "R" THEN RS = li BOTO 


2150 NEXT 


)|J » J + 1 


5090 


2220 IF NI » - 1 THEN 2270 


3830 IF Jl < 5 THEN N » VAL ( MIDI 


5080 PRINT HI(J))i INPUT ' i '|I 


2230 FDR I > TO NI 


(FI(T),J,2))iJ 0-2 


Id, J) 


2240 FOR J > TO NH 


3840 ON Jl BOTO 3850,3860,3870,3 


5085 CB ' 


2250 PRINT II(I,J) 


890,3910,3970 


continued on next page 
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continued from previous page 

5095 RS = 

5100 IF CS « THEM SS - 

5110 RETURN 

Dtlete subroutine. 
4000 PRINT I PRINT "DELETE THIS 

RECORD? •> 
4070 BET A«i IF A$ < > 'Y" AND 

At < > "N" THEN 4070 
40S0 PRINT All IF A( ' 'N' THEN 

4150 
4100 FDR II > M 1 TO NI 
4110 FOR J = TO NH 
4120 Itlll - 1,J) = Kill, J) 
4130 NEXT Ji NEXT II 
4135 FOR J = TO NHiII(N!,J) ' 

"I NEXT 
4140 NI » NI - liS8 ■ Oil > I - 1 

4150 RETURN 

Sort lubroutinc. 

7000 IF NI « - 1 THEN 60SUB 90 

OOi RETURN 
7010 PRINT I FDR J > TO NH 
7020 PRINT "<">J + 1}') "|H«(J) 
7030 NEXT 3 
7040 INPUT 'SORT ON NHICH HEADIN 

G?'jJl 
7045 Jl » Jl - 1 

7050 IF Jl < OR Jl > NH THEN RETURN 
7040 PRINT MA) ASCENDING, OR (0 

) DESCENDING') GET A$ 
7070 IF At = "A" THEN A » li GOTO 

7100 
7080 IF At ' "D" THEN A * 2i GOTO 

7100 
7090 GOTO 7040 
7100 FOR I « TO NI - 1 
7110 T ' I 

7120 FOR II = T + 1 TO NI 
7122 PRINT I)" 'III 
7125 ON A GOTO 7130,7140 
7130 IF It(Il,Jl) < It(T,Jl) THEN 

T= II 
7135 GOTO 7145 
7140 IF lt(Il,Jl) > It(T,Jl) THEN 

T = II 
7145 NEXT II 
7150 IF T = I THEN 7180 
7155 FOR J = TO NH 
7140 Tt X It(T,J)iIt(T,J) = ltd, 

J)iit(I,J) = Tt 
7170 NEXT J 
7180 NEXT I 
7200 SS = 0» RETURN 

Search subroutine. 



8000 IF NI c - 1 THEN SOSUB 90 

00 1 RETURN 

8010 II ' 0iI2 > NliJ « OiCn(O) = 

- liBS ' 1 

8015 HOHE I PRINT 'SEARCH CRITER 

lAi'i PRINT 
8020 PRINT '0) RECORD NUHBER' 
8030 FOR I « TO NHi PRINT I + 

1)') 'jHtlDi NEXT I 
8035 PRINT I PRINT NH + 2j') BEG 

IN' 
8034 PRINT NH M|") RETURN TO H 

ENU' 
8040 VTAB 21i INPUT 'SELECT i 'j 

li IF I < OR I > NH M THEN 

8040 
8045 IF I = NH + 2 THEN CIX(J) = 

- li SOTO 8150 

8044 IF I « NH + 3 THEN RETURN 

8050 CIXIJ) « I - 1 

8040 VTAB 22: PRINT 'ID SMALLER 

(2) EQUAL (3) LARGER 'ji GET 

Ati PRINT Ati IF At < "1' OR 

At > "3" THEN 8040 
8070 C2X(J) = VAL (At) 
8080 VTAB 23i PRINT "COMPARED TO 
I ')! IF CIKJ) = - 1 THEN 

8100 
8090 INPUT " ■jCt<J)iJ = J + li IF 

J > 7 THEN 8140 
8095 GOTO 8015 
8100 INPUT ' "jlj IF'I < 1 OR I > 

NI * 1 THEN 8100 
8105 1=1-1 

8110 IF C2XIJ) < 1 THEN 12 « I 
8120 IF C2X(J) ' 2 THEN II ■ III 

2 « I 

8130 IF C2X(J) > 3 THEN II = I 

8140 GOTO 8015 

8150 IF J < 2 THEN 8200 

8140 VTAB 22i PRINT "D ITEM MUS 

T MEET ALL CONDITIONS"! PRINT 

'2) ITEM HAY MEET ANY CDNDIT 

lON'jJ GET Ati IF At < '1' OR 

At > '2' THEN 8140 
8170 BS > VAL (At) 
8200 RS > Oi IF SB > 2 THEN PRINT 

Dti'PRIl" 
8250 I = II - li FOR 13 « II TO I 

2il = I ♦ 1 
8255 AS = Oi FOR J > TO 7 
8240 IF CIX(J) « - 1 THEN J = 7 

i GOTO 8345 
8270 ON C2X(J) GOTO 8280,8290,83 

10 
8280 IF It(I,ClX(J)) < ' Ct(J) THEN 

8330 
8285 GOTO 8340 



8290 IF It(I,ClX(J)) = Ct(J) THEN 

8330 
8295 IF RIGHTt (Ct(J),l) < > ' 

t' THEN 8340 
8298 T » LEN (Ct(J)) - li IF LEN 

(It(I,ClX(J))) < T THEN 8340 

8302 IF LEFTt (It(I,ClX(J)),T) » 

LEFTt (Ct(J),T) THEN 8330 
8305 GOTO 8340 
8310 IF It(I,ClX(J)) > * Ct(J) THEN 

8330 
8320 6DT0 8340 
8330 IF BS s 2 THEN AS > liJ * 7 

8335 GOTO 8345 

8340 IF BS = 1 THEN AS > 2iJ = 7 

8345 NEXT J 

8350 IF AS > AND BS > 1 THEN 8 

355 
8352 IF AS < > 1 THEN 8380 
8355 60SUB 3300 

8345 IF SB « 3 THEN 606UB 5000 
8370 IF SB ' 4 THEN GDSUB 4000 
8375 IF RS « 1 THEN 13 » 12 
8380 NEXT 13 

8390 PRINT I PRINT 'THAT'S ALL'i 
BET Ati PRINT 

8400 Return 

Error subroutint 11 

9000 PRINT "THERE'S NO DATA IN M 

EMORY." 
9010 FOR I » 1 TO lOOOi NEXT i RETURN 



Print foriitting. 

10000 IF Ft(0) « "" THEN 10040 

10010 PRINT 'SAME FORMAT?"|i GET 

Ati PRINT 

10020 IF At = "Y" THEN RETURN 

10030 IF At < > "N" THEN 10010 

10040 PRINT '(L) LOAD FORMAT, OR 
(C) CREATE FORMAT' n GET At 

I PRINT 

10050 IF At = 'C THEN 10200 

10040 IF At < > "L' THEN 10040 

10090 ONERR GOTO 10170 

10100 INPUT 'FORMAT NAHEi')At 

10110 PRINT Dt|"OPEN')At ♦ '.FMT 

10120 PRINT Dtj'READ'jAt + ".FMT 

10130 INPUT NF 

10140 FOR J = TO NFi INPUT Ft( 
J) I NEXT 
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10150 PRINT DIj'CLOSE'jA* + ".FN 
T' 

lOliO RETURN 

10170 PRINT 'FORHAT NOT FOUND'i GET 
All GOTO 200 

10200 NF • OiJ « OiFKO) « "" 
10210 HONE I PRINT 'START IN THE 

UPPER LEFT CORNER AND NDRK 

ACROSS EACH LINE.' 

10220 PRINT 'liHEADING, 2iITEN, 
3iTAB, 4>NEn LINE, SiSTRIN 
G, 6iEND'i INPUT Jl 

10230 IF Jl < 1 OR Jl > & THEN 1 
0220 

10240 FKNF) ' FKNF) * STRI (Jl 
)\l ' i * I 

10250 ON Jl GOTO 10260,10260,103 
00,10300,10350,10400 

10260 FOR T ■ TO NHi PRINT T * 
Ij'l '|H»IT)i NEXT 

10270 INPUT 'NHICHT'lTiT « T - 1 
I IF T < OR T > NH THEN 10 
270 

102&0 GOTO 10310 

10300 INPUT 'HON HANy?'|Ti IF T < 

1 OR T > 99 THEN PRINT 'OUT 
OF RANGE. 'I GOTO 10300 
10310 A« > STRI (T)i IF T < 10 THEN 

Al » "O" ♦ A« 
10320 FKNF) « FIINF) * AtiJ > J * 

2 
10330 GOTO 103G0 
10350 INPUT 'BTRINGi'iAliA* > M 

+ '!' 
10360 IF LEN (Al) + J > 255 THEN 

NF > NF MiJ > OiFIINF) > * 

I 

10370 FKNF) « FKNF) + AliJ « J + 

LEN (Al) 
103SO IF J > 252 THEN NF > NF i 

liJ ■ OiFKNF) « " 
10390 GOTO 10220 
10400 INPUT 'FDRIMT NAHEi'|AI 
10405 ONERR GOTO 10460 
10410 PRINT Dli'OPEN'iAl * '.FHT 

10420 PRINT Dli'NRITE'iAl * '.FN 

T' 
10430 PRINT NFi FOR J ■ TO NFi 

PRINT FI(J)i NEXT 
10440 PRINT DI|'CL08E')AI * '.FN 

T' 
10450 RETURN 
10460 PRINT 'DISK ERROR*! GET Al 

i GOBUB 10400 O 



Take a big byte of the Apple... 




48K RAM 
(#07-247003H) 



$1299.00 



...and keep nibbling at the edges with these 
peripherals, available from TSE-HARDSIDE... 



SUP-R-MOD RF Modulator (#09-22301 5H) $34.95 

APPLE II Disk Controller w/Drive (#07-247001 H) $619.00 

APPLE II Disk Drive (#07-247002H) $499.00 

MICROSOFT Z-80 SoftCard (#07-207010H) $269.00 

MICROSOFT RAMCard (#07-20701 1 H) $159.00 

PASCAL Language Card (#07-247004H) $459.00 

MOUNTAIN COMPUTER Apple Clock (#07-253001 H) $269.00 

MOUNTAIN COMPUTER ROMWriter(#07-253004H) $169.00 

MOUNTAIN COMPUTER ROMPIUS+ w/Filter(#07-253003H). $189.00 

MOUNTAIN COMPUTER Music System (#07-253005H) $519.00 

MOUNTAIN COMPUTER A/D + D/A (#07-253006H) $329.00 

MOUNTAIN COMPUTER Expansion Chasis (#07-253007H) . . $609.00 

HARDSIDE 16K Memory Upgrade Kit (#09-245002H) $39.00 

APPLE Silentype Printer w/lnterface (#07-247005H) $569.00 

Parallel Printer Card w/Cabie (#07-223044H) $100.00 

CCS Asynchronous Serial Interface (#07-249002H) $159.95 

CCS Calendar/Clock Module (#07-249001 H) $125.00 

LYNX Communications Interface (#07-226004H) $299.00 

VERSAWRITER (#07-248001 H) $239.00 

ALF AM-II (#07-248002H) $189.00 

NEC 12" Monochrome Monitor (#09-223043H) $239.00 

AMDEK Color Monitor (#09-223043H) $399.00 



TERMS: Prices and specifications are subject to 
change. TSE HARDSIDE accepts VISA & 
MASTERCARD, Certified ctiecks and Money 
Orders. Personal checks accepted (takes 3 weeks 
to clear). TSE HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID 
orders over $100.00. On aii orders under $100 a 
$2.50 handling charge must be added. COD orders 
accepted (orders over $250 require 25%deposit), 
there is a $5.00 handling charge. UPS Blue Label 
and Air Freight available at extra cost. 




Tsti-jpiTOSirx 

6 South SI .N/lillord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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WE MIGHT BE GOOD FOR 
EACH OTHER 

SoftSide Publications is 
constantly on the lookout for 
ttiose with the special skills 
necessary to enhance our 
growing family of 
publications. A leader in the 
field of BASIC software 
publishing for the Apple™, 
Atari™ and TRS-80™, 
SoftSide is currently 
expanding its search to 
Include editors, machine 
language programmers, 
researchers, librarians. and 
marketing people. The 
creative environment at 
SoftSide is such that multi- 
skilled people have every 
opportunity offered to them 
for career fulfillment. 
Computer literacy is a clear 
advantage (though not a 
requirement) as is a grasp of 
communication techniques. 
SoftSide Publications speak 
to the technical end of 
microcomputer enter- 
tainment, its creation and 
innovation. We provide the 
surroundings for people to 
grow as far as they want. All 
they have to have is the 
motivation. 

Although New Hampshire wages are not the 
highest available, we offer a better scale of pay 
than most of our competitors and have a goal- 
oriented bonus program. We have excellent fringe 
benefits and New Hampshire has no personal 
income or sales taxes. 

Milford, New Hampshire, is in the beautiful 
southern area of the state, only an hour's drive from 
Boston, the Atlantic Ocean and the White 
Mountains. The state's two largest cities, 
Manchester and Nashua are only fifteen minutes 
away. Ski slopes abound In the region, as do fine 
restaurants, arts and crafts centers and the 
beautiful countryside of New England. 

If you are a skilled person with experience in the 
fields of computers, entertainment or magazines, 
and if you enjoy a relaxed country lifestyle with the 
convenience and cultural opportunities of major 
urban centers nearby, let us know. We might be 
good for each other! A formal resume isn't 
necessary, just send a letter outlining your skills, 
qualifications and experience to: 
Randal L. Kottwitz 
SoftSide Publications 
6 South Street 
Milford, NH 03055 
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I-$TRING PRODUCES ENVYRN 



by Roger W. Robitaille Sr. 

I-$tring refers to a special concept 
utilizing advance codifying techniques 
to compact ...? Well — so much for 
the definitions. Actually, I-$tring was 
conceived to suggest Intelligent (use of) 
String. However, the name itself isn't 
very good. Where possible, a name 
should suggest what it is about. 

Envyrn™ is a derivation of "en- 
viron," as in "environment." That is 
what Envyrn ^"^ does. It permits you to 
model an environment. 

Envyrn'^'*^ should be considered in 
similar terms to word processors, 
Visicalc'"''^, and database managers. It's 
a broad-based tool. Scripsit'^'^, 
Supertext II™, and Word Pro™ are all 
examples of word processors. They 
manipulate words and paragraphs, 
make corrections, customize letters, 
number pages, print manuscripts, and 
set type. They are human tools to con- 
trol and maximize use of one of 
mankind's greatest inventions — 
language, or should I say its symboHc 
equivalent — letters forming words. 

Number manipulators, like 
Visicalc™ and Column Calculator^^'^, 
are prepared to handle another of 
mankind's great inventions — numbers 
— symbolic numerical values. These 
number manipulators extend our con- 
trol over numeric information. In the 
past, numbers were largely used to 
store results and avoid recalculation. 
These number manipulators have en- 
couraged the use of numbers in a much 
more dynamic way. The "what if's?" 
have become feasible questions. In the 
end, the user starts to change his view 
of problems to include apphcation of 
the capabilities of his new tool. 

Database managers like Soft- 
Side's^"^, CCA Data Management 
System ■'^''', and Data Factory ^"^ handle 
another class of information. Data 
files are, in essence, related fact group- 
ings, relating: How tall? How heavy? 
What blood type? How much? When?, 
etc.. Whatever the proper labels, 
they're related to each other in a very 
specific manner — what databases are 
all about. The problem relates to infor- 
mation control, and the tool extends 
the ability to search and compare, 
analyze, selectively list, act on, etc.. 
While each information's meaning is 
very specisd, the useful manipulations 
are essentially the same. 

YoH will note that they all have 
something in common. They each con- 
trol and manipulate a type of human 



information. The system of letters 
relating to sounds, and groups of let- 
ters aping sound formations, substan- 
tially preceded word processors. Let- 
ters and written words always 
represented a tool that extended and 
stored language through symbols. 
Word processors can merely take it a 
step further. Index cards were quite an 
invention, in their day. They represent 
an obvious recognition of the 
significance of data and the desire to 
manipulate it efficiently. Database 
managers can take the next step. Stor- 
ing numeric information is not exactly 
new, either. Using past trends to 
predict future expectations is how ac- 
curate navigation must have started. 
Precision came with hard bought ex- 
perience. The numeric modules con- 
trolled by the number manipulators 
clearly invite the next step. Refining 
the problem, rather than simplifying it, 
may now be the principle consider- 
ation. With the computer ac- 
complishing hours of calculations in 
minutes, without a complaint, numeric 
modules may be constructed to yield 
invaluable conclusions. Every one of 
these programming concepts points to 
the manipulation of a certain class of 
information. Envyrn ''^'^ is yet another 
class of manipulator — a visual one. 

A Visual Manipulator 

There are many forms of inform- 
ation which may be stored as visual im- 
ages: blueprints, maps, charts, even 
game boards. EnvyrnT'^ invites a 
dynamic approach to visual inform- 
ation. "Position" is acknowledged as 
the core piece of information for many 
problems and problem approaches. 
Envyrn T"^ offers several approaches for 
graphically presenting information and 
allows the "position" to take on 
characteristics meaningful to the pro- 
blem. 

Envyrn^"^ is focused on spatial prob- 
lems. Road maps are an excellent ex- 
ample of sophisticated sets of recur- 
ring patterns and symbols. Look at the 
legend on any map and appreciate the 
quantity of information organized on a 
spatial plane. The particular con- 
figuration of a game board, like Easy 
Money ^"^j is unique and meaningful, as 
is an electronic diagram. In each case, 
the spatial relationship of the elements 
themselves is a crucial feature of the in- 
formation being modeled. 

Envym^"^ defines a small group of 

SoftSide October 1981 



meaningful and flexible pictures, in- 
cluding some control information. It 
creates a string array to hold the iden- 
tification of which picture (and 
characteristics) to be used in what pos- 
ition. Once the graphic pictures and 
characteristics join the arrayed data, 
the EnvyrnT""^ project proceeds to 
become a utility. The world 
mushrooms and grows smart. 

The Tiles 

The graphic structure of Envyrn™ is 
crucial to most of its applications. 
That structure's closest artistic cousins 
are design tiles such as floor and 
ceramic wall tiles. Designs are ac- 
complished by arranging large 
numbers of smaller pieces. 

Due to this similarity, we borrow the 
term "tile" to describe any single 
graphic design prepared in support of 
the map array. One of the pages in the 
poster pullout bears a complete legend 
of the tiles used in this month's 
database. There are actually three dif- 
ferent but similar tiles prepared for 
each map code. These are three dif- 
ferent sizes of the same idea. 

Variety of Applications 

EnvyrnT"^ has as many practical ap- 
plications as it does entertainment ap- 
plications. Learning to use Envyrn^*^ 
will be no overnight task. Anyone per- 
sistent enough to get through the initia- 
tion process will be able to manipulate 
Envryn^"^. However, effectively utiliz- 
ing it will be an acquired skill. For 
some, Envyrn™ is the program they've 
been awaiting to solve the problem 
that's especially theirs. 

One of Envyrn's^"^ special strengths 
is its amusement applications. The 
same utility can prepare and 
manipulate an excellent three- 
dimensional "Star Trek" game, be 
able to create a role-playing game like 
an adventure or "Hellfire Warrior," 
and still help you plan your garden. 
These features seem certain to attract 
the creative energies of a bumper crop 
of computer novelists, far out of pro- 
portion to the possible financial gain. 
Our obligation is to constantly improve 
Envyrn 's^*^ usefulness and flexibility 
— a fate we gladly accept. 

Envyrn^M [$ a very important piece 
of software. Not only is it not finished, 
it has only just begun. If Envyrn''*' 
were to be treated as a product to be 
sold, it wouldn't be ready for several 
years — machine coded (it's presently 
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BASIC), shiny-skinned and expensive. 
The En vyrn'''^ editor contained in these 
pages is nothing more than a pro- 
totype. The theme editor we are work- 
ing on now is definitely in another 
league. At that, this prototype 
possesses some powerful capabilities 
that can already be put to use. It is in 
this light that we are publishing the 
code. 

As with any quality piece of soft- 
ware, Envyrn''^'*^ has so many subtle ap- 
plications that practice is required 
before problems may be thought of 
with regard to its capabiUties. The 
conceptual practice that this prototype 
offers is worthwhile in itself. It was this 
editor which produced the map in the 
centerfold. It was also with this editor 
that we laid out the floorplans of Soft- 
Side's offices, including placement of 
all our furnishings and equipment. 
Electronic design and musical scoring 
can be done — and maps — Envyrn"'"'*^ 
loves map applications such as floor 
plans, road maps, and zoning charts. 
You can design some of the more 
unique alphabets found in the world 
and print banners utilizing them. En- 
vyrnTM becomes a superior banner 



maker if you own one of the graphics 
printers like the Microlines or the 
MX-80. The editor and the 
GAMEPLAY program are all you 
need to easily prepare graphic adven- 
tures, heretofore only dreams. 



Speed 

Both the prototype editor published 
in these pages and the GAMEPLAY 
Interperter on DV suffer from the slow 
execution of BASIC. We recognize the 
problem and have every intention to 
transfer the concept to another 
language with greater speed. Lance 
Micklus has agreed to conduct the 
translation to Z80 machine code once 
the logic of the program is more 
established. 

Mr. Ray Cote, former editor of 
BYTE, is now part of the project. His 
specific assignment is to translate the 
concept to the Apple II. This first ef- 
fort for the Apple II will also be under 
BASIC. In due time, all code will be 
object machine code or its compiled 
equivalent. 

In order to appreciate the rather 



unusual way Envyrn''"'^ is being brought 
to the market, you should understand 
that Envyrn^'*^ is at least the precursor 
to a whole new generation of software 
where more time is devoted to the pro- 
blem than the code. Envyrn^M is only a 
tool. Like other tools it must be used to 
be appreciated. The more it is used, the 
better the user becomes, and he will use 
it all the more. The same can be said of 
your favorite word processor, database 
manager, and of course, VisiCalc'""'^. 

Unlike these other tools, the appli- 
cations produced under Envyrn''''^ will 
frequently be useful to many more in- 
dividuals than the originator. Its 
abilities in the entertainment area are 
most noticeable. However, the appli- 
cations don't end there. Many of life's 
problems are essentially spatial in 
nature — the wiring of a house, the 
planning of a garden. Even electronic 
designs may be prepared using 
Envyrn™. 

SoftSide has never printed programs 
more significant than the ones con- 
tained in this issue. We truly expect the 
concepts behind Envyrn^'^ are 
going to stir the software community. 



About The Centerfold... 



No doubt you've noticed an 
extra wrinkle in your magazine 
this month — a centerfold. 
We realize that Hugh Hefner 
is safe from our competition. 
The reason behind this addi- 
tion is quite simple. To under- 
stand Envyrn^M, you must ap- 
preciate the significance of the 
area it controls. The center- 
fold itself is only one ninth the 
size of the original printout. A 
Microline 83 was used with a 
fresh ribbon. For those of you 
into specifications, try these 
on for size. The main area is 
encoded into an array tightly 
controlled to simulate a grid 
of 99 elements by 99 elements. 
That's 9,801 positions — the 
size of six full-sized sheets of 
quarter-inch graph paper. 
Each of these positions can 
point to a menu with 256 selec- 
tions. This particular appli- 
cation is focused on its tiled 
graphics capabilities. Because 
this is a preliminary editor and 



because we weren't sure how 
much space was left on DV, 
the EnvyrnmentTM this 
represents is really pointless as 
anything other than a 
showcase of some of 
Envyrn's™ capabilities. There 
wasn't time to write and refine 
a plot. Another interesting 
statistic is the fine resolution. 
This poster is a paste-up of a 
printout that was forty pages 
long. The implied resolution 
of this approach is over one 
million pixels. With all of its 
complexity, this map required 
less than sixty different tiles. 

Within the sixty or so de- 
fined map codes, there are 
several families of graphics, 
such as the shoreline set, the 
road set, and the wall and 
door set, which had to be 
coordinated so they would 
blend when grouped together 
to form the larger effects of 
buildings and road networks. 
There is a definite skill to con- 



ceiving and executing effective 
tile designs. Practice. Imagine, 
if a proper set of symbols can 
be prepared, some of your 
problems may be on the verge 
being solved. 

There is one special effect 
used in this month's database. 
To fully appreciate the effect, 
the database should be run 
under GAMEPLAY/BAS. 
GAMEPLAY/BAS is an En- 
vyrnTM interperter being 
prepared for Diversions thru 
Envyrn^M magazine. Like the 
editor, it too is at the pro- 
totype stage. However, the 
jump feature is in effect, per- 
mitting preprogrammed 
jumps in map position tied to 
specific places. Thus, when 
certain places are reached, the 
effect of a scene change takes 
place with the graphics taking 
on a different scale of mean- 
ing. The photo spread on the 
reverse of the poster 
demonstrates this effect. 
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Eni^yrn" 



Preliminary Editor 



Starting the Program 

When the program is RUN, you will 
be asked if you desire to load in a new 
map. A positive response will cause the 
program to ask you for the map's 
filename to be loaded into memory. 
Otherwise, a blank map is created. In 
either case, control then passes to the 
main menu. 

Main Menu 

From this menu, all the different 
parts of the program are reached. The 
menu gives six options: "Draw" goes 
to the "Map Creator;" "Map 
Save/Load" goes to the disk I/O 
routine; "Graphic Draw" allows a 
parcel to be defined; "Print Map" is 
used to print all or part of the map; 
"Jump" allows a jump to be added to 
the jump list; and "Print Graphics" 
prints the parcels onto a printer. 

Map Creator 

The "Map Creator" display shows a 
portion of the map, the current cursor 
character in the upper right, and a 
menu of commands near the bottom of 
the screen. These commands are ac- 
tivated by simultaneously depressing 
the "Shift" and "Down-arrow" keys 
(together, they act as a control key) as 
well as the character indicated in the 
menu. There is also a flashing cursor 
showing your current position, as well 
as iQgends along the x and y axes to 
show the position of each square 
within the large 99 by 99 map. 

The cursor is moved using the four 
arrow keys. If you move off the boun- 
daries of the screen, the portion of the 
map on the screen will change to reflect 
your new position. To place a 
character on the map, simply type the 
character. If the character has already 
been defined as a tile, it will then be put 
on the map. Otherwise, you will be 
allowed to create it before it is placed 
on the map. Another way to place a 
character is to hit the "Enter" key, 
which will repeat the last character 
placed on the map. 

The list of commands at the bottom 
of the screen is executed by typing 
"Shift/Down-Arrow" and the letter. 
This is called "Control G" (or 
whatever letter). 

Control G — Allows you to enter a 
character on the map that cannot be 
typed from the keyboard, such as an 
arrow (see characters below). 

Control P — Allows you to reposi- 



tion the cursor by specifying the x and 
y coordinate of where you wish to go. 

Control S — Returns to the main 
menu. 

Control O — Produces a hardcopy 
printout of what is on the screen. 

Control D — Allows you to examine 
parcels. After typing "Control D", 
you will be asked for the character to 
be displayed. Upon typing it, the parcel 
for that character will be displayed on 
the right of the screen, and you will be 
asked for another character. Hitting 
"Enter" will escape from this mode. 

Control C — Changes the graphic 
mode that is displayed on the screen. In 
modes above 0, the graphics for each 
character are displayed instead of the 
characters themselves. Otherwise, 
everything is the same. See poster for a 
description of the graphic modes. 

Clear — Toggles the automatic 
repeat on or off. When it is on, th^ cur- 
sor is moved in the direction of the last 
arrow when a character is placed on the 
map. 
Map Save/Load 

This routine displays a short menu. 
The four options allow you to load a 
map, save a map, delete a file from 
disk, or return to the main menu. 
Loading a map will erase any map cur- 
rently in memory, so be careful. If the 
disk does not have room to save the 
map, the delete file can be used to 
make room. If you make a mistake, 
such as trying to load a nonexistent 
file, an error will result. Type "GOTO 
150" to return to the main menu. 

Draw 

The "Graphic Draw" routine allows 
you to define the graphic tile for a 
character. It is similar in some ways to 
"Map Creator" above, with a few dif- 
ferences. The size of the tile set is much 
smaller (9 x 6). Therefore, the entire 
parcel can de displayed on the screen at 
one time. There is also a diagram 
showing the codes for the six pixels in a 
character to aid in computing graphic 
values. Cursor movement is the same 
as "Map Maker," and is accomplished 
with the typing of characters. 

The special commands for "Graphic 
Draw" are: 

Control F — Fills the parcel with a 
specified character. 

Control G and Control S — The 
same as in "Map Maker." 
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Control E — Loads a graphic tile 
from another character into the current 
parcel (useful for creating numerous 
similar parcels which are slightly dif- 
ferent from each other). 

Controls U, D, R and L — Draw 
lines of a specified character up, down, 
right or left from the current cursor 
position. 

Clear — Toggles the repeat on/off, 
as in "Map Maker." 

Control T — Changes the function. 
This allows you to change the cursor to 
a graphic pixel, and be able to draw, 
erase or move in single or double pixel 
groups. When used in conjunction with 
the repeat, excellent graphic designs 
can be created with relative ease. 

Print Map 

First, you will asked if you want con- 
densed print and what type of printer 
you have. The required print control 
code will then be printed. If you have 
an Epson MX-80, you must have it set 
to the S-80 mode for the print routine 
to function. If you have neither an 
MX-80 nor a Microline 83, substitute 
your printer's codes for condensed and 
normal print for the pairs of X's in line 
8003. 

Next, you will be asked which 
graphic mode is to be printed and the 
coordinates of the block of map to be 
printed. Enter the coordinates of the 
upper left and lower right points in 
"x,y" format. 

Finally, you will be asked the width 
of your printer. This is used as a check 
to make sure that what you requested 
to print will fit on your printer. 

Jumps 

This routine allows you to enter a 
jump into the jump table. In this pro- 
gram, it has no real purpose. The 
jumps are only used by 
GAMEPLAY/BAS. A jump is entered 
in the form "xxyyxxyy" with the first 
four characters as one coordinate and 
the last four as the second coordinate. 
A jump will take you from the first 
coordinate to the second, or vice versa. 

Print Graphics 

After asking you about condensed 
printing, as in the "Print Map" 
routine, this routine will ask you for 
the first and last characaters, and will 
then print all tiles within that range. 

continued on next page 
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continued from previous page 

110 CL£/)R24000!DINHP»(154) 

112 DINXP(3),VPI3),)IS(3),YS(3)il(S(0)=l!YS(0)=l 

113 60SUB20000 
115 KB=1MOO!KD=0 

150 Q=0iDI=2iCl=OiC2=0!RL=l!RC=liPL=l:PC=l!l1D=OiCH»=""iCU»="8"iC 
LSiPRlNT820,"l1A!N MENU 

Draw 1 
Hap Save/Load 2 
Graphic Draw 3 
Print Map 4 
Juip 5 
Print Graphics 6 
"ilNPUT'Selection >"jQ 

151 D2=2: RP=-1 ! 1(9=1 i Y9=l i G9=0! H9=3i 0NQGOBUB290, 500, 40000, 9000, 31 
000,9500 

152 G0T0150 

199 CLSiPRINT'Saving NEWMAP/BAS!0"iSAVE"NEHNAP/BABiO"!PRINT"Savi 
ng NEHMAP/BASi 1 " ! SAVE'NEWNAP/BAS; 1 " : STOP 

200 ' 

210 CLS!lFND=OTHENFORI=RLTORL+10!PRINTMID$(HP*(l),RC,50);l!NEXT! 

!ELSEGOSUB5000:SOT0230 

220 PRINTTAB(0)!STR«(RC);TAB(8);RC+10iTAB(18)!RCt20;TAE(2B);RCf3 

0iTAB(38)iRC+40iTAB(4B)iRCt50 

230 PRINT87tB, "Arrows »Dve cursor (Enter) Repeats characte 

r 

8-Graphic char P-Position cursor S-Save and go to Menu"| 

240 PRINT389i,"D-Hardcopy D-Display char C-Change 

Mode ('iMD|")";CHR$l30) 

244 PRINTJ960, "Clear-Repeat "jMlD»("Off— On ",RP»3+4,3)! 

250 RETURN 

260 CLS;FOR]=RLTORL+10!PRlNTMID<<HL<l!),RC,50);!!NEni;GOT0220 

290 80SUB200 

298 X=PEEKI153i0+C2»M+Cl)iIF«9=3THENIFCUt=CHR«()l)THENn=ASC(CUJ 
)ELSE)ll=32ELSEn=128+2[(Y9»2+l(9-3) 

299 PRINT954,"Cursor=";MID$(STR<U),2)i' "|;IFPEEK(14400)AND2THE 
NIFC9t<>CHRtl31)THENCH«=C9«!G0T0301 

300 PRINT9C2U4+Cl,CHR«l)(l)iiF0RI = lT010:CH«=!NKEY$j!FCH$<;""0R(P 
EEKIKB)<>0ANDPEEK(KB)<>lA)THEN301ELSENEni!PRINTJC2U4+Cl,CHR«()( 
)!:FDRl = lT010!CHt=INKEY$!lFCH«>""0R(PEEK(KB)<>0ANDIPEEKIKB)<>16 
ORPEEK(14464)=0))THEN301ELSENEXTI;GDT0299 

301 PRINT9C2»MtCl,CHR$IX)i!C9»=CH«iIFM9=3THEN307 

302 IFG9<>0THEND=2[ (Y9>2+X9-3) ; lFM9=2THEN0=0+2[ (Y9t2-1 ) 

303 IFG9<>0THENX=-X>(X>127)-128«(X<128)!lFG9=lTHENCH$=CHR$(XAND0 
)!ELSECH»=CHR$(XORO) 

304 IFG9<>0THENPRINTJC2»M+Cl,CH*i!MID«IMP$(PL),PC,l)=CH«;CU«=CH 
t!X=ASC(CHt) 

307 EX=0!IFCH$<>»"THENEX=ASC(CH$) 

308 XS=XS(«D)iYS=YS(MD) 

310 IFEX=90REX=80REX=100REX=910RPEEKIKB)AND80RPEEK(KB)AND320RPEE 

K(KB)AND640R(PEEK(>;B)AND16ANDPEEK(14444)=0)THENPRINTJC2»i4+Cl,CH 

R»(X)iiS0SUB400:G0T0298 

315 IFEX=13THENCH$=CU» 

318 IFCH<=CHR«n9)THENRETURN 

320 IFCH»=CHR«(U)THENPRlNTJ7i0,CHR<(31)iiPRINTJB32, "Enter X pos 

ition desired il-"jMlD«(STR»(MW»9),2)r)'i!!NPUTCHiIFCH>MH>90RCH 

<1THENG0T0320ELSEPC=CH 

325 IFCH«=CHR«ili)THENPRINTJ832, "Enter the Y position desired (1 

-•!MID«iSTRt(MH»9),2)i")"|:INPUTCH!lFCH>MHt90RCH<lTHENB0TD325ELB 

EPL=CH 

32i lFCH«=CHR«(lt)THEN344 

330 IFCH»=CHR»(7)THENPRlNTJB9i,CHR«(31)|'Enter character >'!!60S 

UB4 1 200i CH«=Ot ! G0SUB240! 6DT0307 

340 IFCH«>CHR«(3)THEN350 

342 PRINrj89i,CHR( (31); 'Enter lode 10-3) ■jiLINEINPUTQ»iND=VAL(B 
I) 

343 1FND<>0ANDXP(ND)=0TH£N342 

344 RC=PC-INT(27/XS(«D)t.!l);IFRC<lTHENRC=l 

345 RL=PL- (6/YS (MB) ) ) IFRL< 1THENRL=1 



34i C2=(PL-RL)»YS(MD)!Cl=(PC-RC)«XS(MD)!lFMD=0THEN290ELSEG0SUB23 

0iF0RI=OT01l!PRINTJU64,STRING$l54,' »)iiNEXTI;BDSUB5000;BOT0298 

350 IFCH<=CHR« 115) THENA«=" " i Q=VARPTR lAO : POKEB, 54! F0RI=0T01 1 ! POK 

EBt2,i0+I/4iP0KEQ+l,(I-INTn/4)M)>i4!LPRINTA$!NEXTIiG0T0299 

3i0 IFCH>=CHR<(4)THENPRINT8B9A,CHR$(31)i'Enter character ((Enter 

> to quit) >"i!GOSUB41200!lFQl»=""THENGOSUB240!GOT029BELSECH«=Q« 

!GOSUB2000;X=247!PRINT8X-64,'Char="iMlD«(STR»(ASC(Bt)),2)j" "pG 

0SUB41050!CH$=CHR»(4)!GDT03i0 

375 IFCHt=CHR«(31)THENRP=-RP!G0SUB244!80T0299 

387 IFCH«<" "THEN298 

390 HID»(MP»(PL),PC,l)=CH$:CU*=CH$ilFMD=0THENPRINT8C2»i4+Cl,CH«! 
!X=ASC(CHJ) 

391 IFCH«>=CHR« ( 128) THEN299ELSEGOSUB2000! IFMIDt (HP« IRl +TY-1 ) , R2t 
TX-l,l)="."THENPRINT8896,CHR$(31)|"Character not defined. Do it 

noH")!lNPUTA$!lFLEFTt(A«,l)="Y»THENCLS!G0SUB4000l!G0T0290iELSEG 
0SUB240:G0T0299 

392 !FMD=0THEN299ELSEF0RI=lT0YS!lFC2tI-l>=llTHEN298 

393 IFCl^XS>49THENPRINT8(C2+I-l)«64tCl,MID»(MP«(RltYP(MD)+I-2),R 
2+XP(MD)-l,50-Cl)i;G0T0396 

394 PRINTS(C2tI-!)«i4tCl,MID*(MP<(Rl+yP(MD)+I-2),R2tXP(MD)-l,XS) 

I 

396 NEXTI 

398 IFRP=-1THEN298ELSECHJ=M!D»(CHR«(B)+CHR<I9)+CHR<110)+CHR«(91) 

, D! , 1 ) ! X=PEEK ( 15360tC2»64+Cl ) !GOT0307 

400 lF(EX=80RPEEK(KB)AND32)ANDPC-l>=lTHENX9=X9-lNT(M9/2tl);lFX9< 

lTHENX9=l-(M9=l)!DI=liPC=PC-l!Cl=Cl-XS:!FCl<0THENRC=RC-27/XS!Cl= 

Cli27!lFRC<lTHENCl=Cl+(l-RC)>SX:RC=liGOSUB200ELSEG0SUB2O0 

410 IF(EX=90RPEEK(KB)AND64)ANDPC+K=l1tt»9THENX9=X9+INT(H9/2+l):IF 

X9>2THENX9=l:DI=2!pC=PCM!Cl=Cl+XS;lFCl>49THENRC=RC+27/XS!Cl=Cl- 

27!lFRC>NWJ9THENCl=Cl-(RC-MWI9)>SX!RC=MW:GOSUB200ELSEGOSUB200 

420 IF(EX = 100R(lPEEK(KB)AND16)ANDPEEni4464)=0))ANDFLM<=MH«9THE 

NY9=y9+l-2«(M9=3);IFY9>3THENY9=l!Di=3!PL=PL+liC2=C2+Y5!lFC2>10TH 

ENRL=RL+6/YS!C2=C2-6;G0SUB200 

430 IF(EX=910RPEEK(KB)AND8)ANDPL-1>=1THENY9=Y9-1+2«(N9=3)!IFY9<1 

THENy''=3+2»(M9=3)!DI=4;PL=PL-llC2=C2-YS!lFC2<0THENRL=RL-6/YB!C2= 

C2t6iGOSUB200 

440 RETURN 

500 CLS!PRINT820,"DISK READ / SAVE 



Load Map 1 
Save Hap 2 
Delete File 3 
Return to Menu 4 
"!lNPUT"Selection";0 



.0NBG0SUB505, 520, 560; RETURN 



505 LINEINPUT'Naie of file to be loaded >';B$!CLOSE!OPEN"I",1,Q« 

508 1NPUTI1,BC,FM,JR,LC,HH,HW,NE,NG,NR,PV,SG,SX,SY,TX,TY,GC,N1,N 

2!G0SUB6000!l=l 

510 IFE0F(l)THENCLOSEl!RETURNELSELINEINPUT»l,MP$(I)! 1=1+1 !G0T051 



520 LlNEINPUT'NaM of file to be saved )"iQ«!CLOSEjOPEN"0",l,B« 

523 PRINT«1,BC',"FH',"JR","LC","HH",'MW",'NE","NG',"NR","PV,"SG 

","SX","Sy","TX","TY","GC","Nr,"N2 

525 FORI=lT0154iPRINTIl,MP<(l)!NEXTl!CLOSEl!RETURN 

560 LINElNPUT'Naie of file to be deleted >";D(!KILLB«;RETURN 

2000 E=ASC(CH«)-BC;R1=((INT(E/MH))»SY)+100!R2=SX»(E-(INT(E/HH)IM 

H))+l!lF(Rl<100)DR(Rl>130)THENRl=100iR2=l!RETURNELSERETURN 

4009 STOP 

5000 I=RL;I1=0 

5010 e=RCiBl=0 

5020 REM 

5030 CH$=MID$ (HP$ ( I ) , B, 1 ) ;6DSUB2000 

5040 PRINT}BI»64+Il,;i 

5042 IF81+T>11TH£N5070 

5045 22=Rl+YP(MD)-l!Z3=R2+XP(MD)-l!lFIltXS(MD)>50THEN21=50-IlELS 
E21=XS(MD) 

5046 A»=CHR«(26)fSTR]NGt(21,24) 
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5047 IFHD=lTHENPRINTI1ID$(HP«IZ2),23,21)A$|NID«(HPt(Z2+l),Z3,Zl)fl 

♦ jl1ID»iNP»(Z2+2),Z3,21)|ELSEIF11D=2THENPRINTI1ID«iHP»iZ2),Z3,21>)A 

t;HIDt(HP<(Z2+l), 23,21) ;ELSEIFHD=3THENPRINTM!D<(I1P$(Z2),Z3,Z1); 

5070 IFIl+)(S(«D)>50THENn=0!Ql=QUYS(«D)!lFei<llTHENI=!+l;Q=RC;G 

OT05020ELSE5100 

5080 ll=IinS(HD)!Q=Qtl!G0T05030 

5100 Q=RL-l!F0RI=0T010:PRINT8iI)tM+51,j!lFI/yS(ND)=INT(I/YS(HD) 

)THENQ=QMiPRINTQi!ELSEPRINT" "; 

5110 NEXTI 

5115 PRINTJ7O4,CHR»l30)i 

5120 Q=RC-l!F0R]=0T049STEP);S(«D)iPRINTJ704+],USING"l»"i8tliiQ=Q+ 

I'.NEXTI 

5190 RETURN 

6000 S)(=9iSy=6iTl(=7iTY=5 

6010 XP(l>=l!YPil)=l:XS(l)=9!YS(l)=3:){PI2)=l:YP(2)=4:XS12)=6;YS( 

2)=2!)lP(3)=7!YP(3)=4il(S(3)=3:YS(3)=l 

6140 RETURN 

8000 CLS 

8001 INPUT'Do you want condesed »ode (Y/N)";Q» 

8002 INPUT" 

Enter printer type! 

Hicroline 80 or 83 1 
Epson h^80 2 
Other 3 

Your choice >"iQl 

8003 IFLEFT«(9$,l)="Y"THENLPRINTI1ID»(CHR$(29)t" "+CHRt(29)+" H" 
,Ql>2-l,l)!ELSELPRINT«ID«(CHR«(30)t" ■+CHR«<30)f Xr,QU2-l,l); 

8004 RETURN 
9000 G0SUB8000 
9005 PRINT" 

Enter graphics node (0-3) >"j!lNPUTPI1 

9010 )(S=KS(PM)!YS=YS(PN)!PRINT"Enter K1,Y1,)(2,Y2 >"j 

9020 KP=)(P(P«)!YP=yP(PH):INPUT21,22,23,24 

9030 INPUT"Enter printer width >"jPW 

9032 IF (23-21 + 1 )«)(S>PN-4THENPRINT"Won't Ht!"!!G0T09005 

9040 F0RI=1T03!LPRINT' ";: 

9050 F0R0=Z1T0Z3:Q$=MIDJ(STR<(Q),2):Q«=STRING$(3-LEN(Q<)," ")+Q» 

!LPRINT«lDt{Q«,I,l);STRING«()(S-l," "); 

9060 NEHQiLPRINT" "!NEXTI 

9070 F0RQ=Z2T0Z4!LPR1NTUSING'(H« ";Q; 

9080 IFPH=0THENLPRINT(1ID$(MPJ(Q),Zl,Z3-Zl + l>iNEnQiRETURN 

9085 FDRQl=lTOyS!lFQl<>lTHENLPR!NT" "j 

9090 FORI=Z 1 TDZ3! CHt=«ID< (HP« (6) , 1 , 1 ) i G0SUB2000 

9100 LPRlNTNID«(MP<(Rl+QltYP-2),R2+)(P-l,XS)i 

9110 NEXTIjLPRINT" "iNEXTQl.Q 

9120 RETURN 

9500 G0SUB8000!CLS!PRlNT"Startinq Character >"i!GOSUB41200iZl=AS 

C(B«)!PRINT"Ending Character >')!G0SUB41200i22=ASClBt) 

9510 F0RT=Z1T0Z2 

9520 CH«=CHR$(T) 

9530 G0SUB2000!R2=R2-1 

9540 LPRINTI1ID«(I1P»1R1),R2+I,9)i" "|HID«(NP«(R1+3),R2+1,6);" " 

iMID«(NP«(Rl+3),R2+7,3) 

9550 LPRINTI1ID«mP<(Rl+l),R2+l,9)!' "|NlD*l«P«(Rl+4),+R2+l,6) j" 

")HID<(HP»(Rl+4),R2+7,3) 
9560 LPRINT)1ID«(NP<(RH-2),R2+l,9)j" "(MID«(MP*(Rl+5),R2tl,9) 
9570 LPRINT' " 
9580 NEXTT 
9590 RETURN 

9999 STOP 

10000 CLS 

10002 PRINT"Nap= 1,1 to "il1ID$(STR«(Hi>9),2)i","i)1ID$(STR$iNH>9) 

,2) 

10022 F0R1=1T03!LPRINT" ");F0RQ=21TOZ3!Q«=MID«(STR*(B),2) 

10024 et=STRIN6tl3-LEN(Q$)," ")+B«!LPRINT«ID«(B<, I,l)| 

10026 NEXTQiLPRINT" "sNEXTI 



10030 F0Rfl=Z2TOZ4 

10040 LPRINTUSING"«II "jB|iLPRINTmD»(l1P*(Q),Zl,23-Zltl) 

10050 NEXTB 

10060 RETURN 

20000 CLS 

20005 BC=32iM«=lliNH=ll!NR=3iJR=l!NE=l!EH=29iFM=l!NC=li6C=l 

20012 INPUT'Do you Hish to edit an old iap";AtiIFLEFT»(A$,l)="Y" 
THEN60TD505 

20013 FORI=1T0154:NP$(I)=STRING)(99,".")!NEXTI 
20158 GOSUB6000 

20999 RETURN 

31000 CLS 

31010 PRINT" JUMP DEFINITION 

31020 PRINT"Enter ju«p number (La5t="!HID$(STR«(N2),2);", Il8)(="i 

)1IDt(STR$(JRtl1W),2>|")"i 

31030 INPUTCi!FC>N2THENN2=C 

31040 Sl=SX!S2=SYiRl=NR>SY+MHt9+INT((C-l)/MW)+l!R2=((C-l)-INT((C 

-l)/«W)tHW)»9tl!SX=9:SY=l!PRINT364,CHR»(31)!!G0SUB40002iSX=Sl!Sy 

=S2iRETURN 

40000 CLSiLINEINPUT'Which character do you wish to prepare >"!CH 
$ 

40001 G0SUB2000 

40002 H<="J"!PRINT"Line Rer';Rl,"Char Ref "iR2:GOSUB41100 

40003 CX=202:XL=RliXC=R2!X=138!G0SUB41050 

40004 Hl<=HID»(MP$(XL),XC,l)!lFH9<>3THENH*=CHR$(128+2[(Y9«2+X9-3 
)) 

40005 PRINTSCX,HtjiCU»=IN>;EY«iIF(CU$="")AND(PEEK(KB)=OOR(PEEK(KB 
) = 16ANDPEEM 14464) <>0))THENPRINTJCX,HU|!GOT040005 

40009 IFCU«=CHR$(13)THENCUt=Ht 

40010 IF(CU$=CHR$(8)0RPEEK(KB)AND32)AND(XC-R2>CORX9-INT(H9/2+l)> 
0)THENGDSUB41300!D2=l!G0SUB41O40!X9=X9-lNTl(19/2+l)iIFX9<lTHENX9= 
l-(M9=l)iXC=XC-liCX=CX-l!G0T04O004 

40020 IF(CU»=CHRJ(9)0RPEEK(KB)AND64)AND(XC-R2<SX-10RX9+INTi«9/'2+ 

l)<=2)THENG0SUB41300!D2=2!G0SUB41040!X9=X9+INT(N9/2tl)!lFX9>2THE 

NX9=l!XC=XCtl!CX=CX+l!G0T040004 

40030 IF(CU$=CHR«(10>OR(PEEI';(KB)AND16ANDPEEK(14464)=0))AND(XL-R1 

<SY-10RY9+l-2KI19=3)<=3)THENGOSUB41300!D2=3!GOSUB41040!Y9=Y9tl-2 

«(N9=3)iIFY9>3THENY9=l!XL=XLtljCX=CXH4!G0TO40004 

40040 IF(CU$=CHR»(91)ORPEEK(KB)AND8)AND(XL-R1>OORY9-1+2>(M9=3)>0 

)THENGDSUB41300:D2=4!GOSUB41040lY9=Y9-lt2t(M9=3)iIFY9<lTHENY9=3+ 

2«(N9=3)iXL=XL-l!CX=CX-64:GOTD40004 

40042 IFCUt>=" "ANDCUt<>"["THEN80SUB41030!lFRP=lTHENCUt=MID»(CHR 

» (8) tCHR« (9) +CHR$ (10) tCHR« (91 ) ,D2, 1 ) !GOT040009ELSE40004 

40050 IFCU$=CHR$(19)THENRETURN 

40060 IFCU«=CHR$(7)THENPRINTJS00,"Enter character >"|!G0SUB41200 

:CU«=Q$;G0T040042 

40065 IFCU»<>CHR<120)THEN40070 

40066 PRINTS896,CHR*(31);"<S>ingle pixel, <D>oubIe pixel, <N>oriii 
al type >"i!LINEINPUTA«!A=INSTR("SDN»,LEFT«(A$,l))!lFA=0THEN400 
66ELSE(19=A! IFA=NTHEN40068 

40067 PRINT8896,CHR$(31)j"<S>et, <R>e5et, <11>ove >"|!LINEINPUTA 
«!A=INSTR("«RS",LEFT$(A»,l))!lFA=0THEN4O067ELSEG9=A 

40068 PRINTJ832,CHR$(31))iG0SUB41101 

40070 IFCU«=CHR«I6)THENPRINT8800, "Filler character >";:60SUB4120 

0jCU»=Q<!F0RQ=0TOSy-l!MID«(HP«(Rl+B),R2,SX)=STRINB«(SX,CUt)!NEXT 

QiG0T040003 

40072 IFCU»=CHR«(16)THENH»=MID$(HP«(XL),XC,1):60T040004 

40075 IFCU«=CHR«(5)THEN21=R1:Z2=R2!PRINT8800, "Enter character >" 

j!GOSUB41200iCH$=B«!G0SUB2O0O!FDRI=0T0SY-l;HlD$IMP$lZl+I),Z2,SX) 

=l1ID»(l1P<(Rl + I),R2,SX)!NEXTIiRl=Zl!R2=22:GOT040003 

40077 IFCU$=CHR« (31 ) THENRP=-RP!G0SUB41 101 iG0TD4OO04 

40080 A=INSTRlCHRt(21)+CHRt(4)+CHR$(12)tCHR»(18),CUt)!lFA=00RCU< 

=""THEN40200 

40082 PRINTJ896, "Enter draw character >"f !G0SUB412OO!CU>=B« 

40083 PRINT8CX,Q$J!MID«(I1P«(XL),XC,1)=B$ 

40085 IFA=lANDXL-Rl>0THENXL=XL-l!CX=CX-64!G0TO4OO83 

continued on next page 
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continued from previous page 

40090 IFA=2AND)(L-Rl<SY-lTHEN)(L=XL+l!CX=CUi4:60T0400B3 

40094 IFA=3AND)(C-R2>OTHEN)(C=)lC-l!C)l=CMi60T040083 

4009B IFA=4AND)(C-R2<SMTHEN)(C=l(Ctl;CK=C)(+l:60T0400B3 

40200 6DT040004 

41030 PR]NT8C)(,CU«i;HID$(HP$()(L),)IC,l)=CUJ:Ht=CUtiRETURN 

41040 PRINTJCX,«ID«(l1P$aL),)(C,l)|:RETURN 

41050 PRINTJ)(,STRINGt(S!(,138);iK=)(+i3;F0RI=0T0SV-l!PRINT8)l,CHR$l 

133)iNID«(NPt(Rl+I),R2,S)(>j!!(=)(tt4!NEUI;RETURN 

41100 PRINT857i,"F-Fin G-Graphic char S-5ave !( Henu 
E-Enter Graphic"; 

41101 PR1NT9M0,"U-Drat» up D-Draw down R-Draw Right 
L-Dran left 

Clear-Repeat ("iHIDICOH)— -On) ",RP>4+5,4); 

41102 PRINTTAB(30)j'T-Function (";MID$("SingleDoubleN[)rial",H9U 
-5,i)i!lFN9=3THENPRINT")"iELSEPRINT" "| HID* I "Move) Re5et)Set) " 
,G9«6-5,6)j 

41103 PRINT" 



P-Pick up character"! 

41105 PRINTJ290," 1 2";:PRINT8354," 4 B"i;PRINTJ41B,"16 32"; 

41110 RETURN 

41200 )l=PEEK(li4U)+PEEK(14417)t256-153i0!PRINTCHR$l30)j;LlNEINP 

UTQ(:01$=Qt 

41210 IFLEFT«(Q«,l)<>"8"THENIFLEN(Q»)>lTHENQ=VALIQ»)!BDTO412i0EL 

SEIFC$<>"'THEN8=ASC(Q»)!G0T041260 

41220 0=128:fl«=NID$(Q$,2) 

41230 IFQ$="THEN41240 

41240 Q1=VAL(Q«)!Q»=I1ID«(Q<,LEN(STR«(Q1))) 

41250 Q=B+Ql!G0T041230 

41240 IFB<320R8>191THENPRINT8K,)!60T041200 

41245 Qt=CHRt(B)iRETURN 

41300 IFN9=3ORG9=OTHENRETURNELSE0=2[tY9«2+)t9-3)!lFN9=2THEN0=0i2[ 

(Y9t2-1) 

41310 X=ASC(HID$(l1P<(XL),!lC,l))!X=-)l»(X>127)-12B>()«12B)!lFG9=3T 

HENX=XOROELSEX=XAND (255-0) 

41320 MID$il1P«(XL),XC,l)=CHR$(X)iRETURN 



Envyrn 



Its Marketing 



A statement from its author and publisher of 
SoftSide, Roger W. Robitaille, Sr 



It would be possible to complete En- 
vyrn's^'^ features as they now exist and 
offer Envyrn-I or its equivalent. 
However, I've seen too much signifi- 
cant software get caught in the revision 
bind. It's not uncommon for a soft- 
ware publisher to offer what appears to 
be a completed product and find 
himself in an endles series of updates 
and product upgrades with trade-in 
allowances. I'd rather be more 
straightforward concerning the process 
of software development and offer the 
public a participation in the project. 
The vital difference is that we make no 
pretense that a finished product exists 
at this time, or that one may exist for 
several years — if ever. Rather, we of- 
fer that prototypes are constantly being 
refined and will be sent to participants 
on at least a quarterly basis, including 
any design notes, changes in documen- 
tation, etc. If participation is heavy, 
we will be able to take a more organ- 
ized approach to keep participants ad- 
vised through better documentation. 
Participation will cost $200 per year. 
Participants are invited to offer 
enhancements to the features of En- 
vyrnTM by way of suggestions and code. 
All mail will be read and most 
answered. We expect some employ- 
ment opportunities to open due to En- 
vyrn's''''^ development. Please contact 
our offices should you be interested. 

In order to clearly understand the 
meaning of Envyrnments^'^, you must 
appreciate that Envyrn^"^ databases 
may be very significant by themselves. 
Database managers, word processors, 
and Visicalc'^'^ tend to be utilized for 
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private purposes. When a word pro- 
cessor is used to develop a book, it is 
seldom distributed on diskette. Even a 
small book would involve several 
diskettes and cost $50 or more. A 
system of form letters would comprise 
a database significant in itself or as a 
database for word processors. En- 
vyrn™ has the capability of preparing, 
editing, printing and storing the Hkes 
of electrical circuit designs, road maps, 
and floor plans. The diagrams it stores 
may be projected on large-screen TV, 
preserving the very blackboard of to- 
day's education. They can be edited or 
updated at any time. EnvyrnT"*^ is a pro- 
gram all school systems should have. 
EnvyrnT''^invites the first generation of 
computer novelists to begin honing 
their skills. As many of the databases 
will be important in and of themselves, 
they deserve a term uniformly sug- 
gesting the approach they use. To 
secure quality standards, the term En- 
vyrnment™ is reserved as a mark of 
quality we control. 

The impact of EnvyrnT"^ will extend 
far beyond our walls. Our goal is to 
cohesively develop Envyrn'"''^ in its 
larger context, as uniformly as pos- 
sible. Envyrn™ databases may be of- 
fered by anyone, but Envyrnments^'^ 
have been reviewed by SoftSide 
PubHcations and found to be compati- 
ble and useful. 

It is necessary to prepare a library 
approach for Envymments''"'^. There is 
every reason to assume that Envyrn 's''''*^ 
approach will take three to five years to 
develop. As with discreet programming 
itself, only so many Envyrnments^'*^ 
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will have a substantial commercial 
future. Most will have to be satisified 
with availability only through the 
library. It's substantially significant 
that these efforts be readily available. 
As part of our responsibility, we'll 
develop as efficient and available a 
library as possible. 

The library policies (subject to 
change as experience dictates) will be as 
follows: 

1 . A database must pass review as an 
Envyrnment™. If the database joins 
the Envyrnment^'^ library, there will be 
no charge. Should the author choose 
not to have the database enter the 
library, there will be a $100 certifi- 
cation fee. For the moment, there will 
be no charges for rejections. Should 
authors wish to market their own En- 
vyrnments''^'^, we wish them the best 
and they're free to use the term En- 
vyrnment"'^'^ with regard to databases 
certified by SoftSide Publications. Our 
acceptance must bear the year of cer- 
tification — Envyrnment™- 1981 and 
updates must be recertified (reduced 
fee). 

2. With the author's approval, his 
database will enter the library and a 
thorough description will be prepared 
for the library directory. Authors are 
encouraged to add a user's fee to be 
charged for their work when ordered 
by a subscriber. Anyone charging a 
user's fee over $100 should be prepared 
to give telephone assistance to anyone 
who fairly procured a copy of his En- 
vyrnment™. Public domain donations 
are permissible. 

3. Documentation (user instructions) 



must be prepared in machine readable 
form, on disk. We must shield the 
library from administrative 
nightmares. One of the policies will be 
not to store printed instructions. This 
will make updating a far simpler pro- 
cess. 

4. Any registered participant of En- 
vyrn™ may utilize the library. If you 
are a current participant, you will 
receive a subscription to the Envyrn- 
ment^'^ Library Directory as part of 
your membership. Subscriptions to the 
directory will cost $5 per year (2-4 
issues). 

5. The Envyrnment^'^ Resource 
Library will charge $10 per diskette re- 
quired plus a usage fee(s) for its ser- 
vice. 

6. Popular library items will (with 
the author's approval) be slated for 
commercial development. 

7. Databases may be withdrawn 
from the library with a six month writ- 
ten notice (to make sure it's deleted 
from the current directory) and pay- 
ment of a review fee. 

Diversions''^ thru Envyrn^'^ will also 
use the library as one of its resources. 
Diversions"'^'^will suggest the impact 
realm of Envyrn''^'^. A special com- 
panion program is prepared to respond 
to Envyrnments^'^ on a wide spectrum 
of applications. Some are essentially 
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for amusement, like graphic adven- 
tures. Some may dynamically illustrate 
more serious concepts, such as traffic 
patterns and mapping techniques. 
Other related material, including 
techniques and graphic hints, will be a 
part of Diversions'^. Mostly, Diver- 
sions''''^ will be about the Envyrn- 
ments"^. If the Envyrnment's"^ about 
oil drilling and robbing a bank, the ar- 
ticles will refer to oil drilling and bank 
robbery. 

For the moment, we promise one 
database with a supporting interpreter 
every two months. The six issues per 
year will each consist of one disk, con- 
taining the appropriate software, and 
sixteen or more pages devoted to 
whatever supporting textual and pic- 
torial information is needed to com- 
plete the offering. The ultimate plan 
involves two or three Envyrnments''"'^ 
per issue. Initially, the subject matter 
will be selected primarily for entertain- 
ment value. Subjects will include "Star 
Trek," role-playing mysteries, and the 
like. Later, educational subjects will be 
introduced to enhance the entertain- 
ment theme. We hope to have a 
periodical to rival SoftSide qualitative- 
ly by 1983. The cost of a subscription 
to Diversions"^ is $10 per issue — $60 
per year. Back issues will be available 
for $20 per copy. We are certain you 
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will be pleased with the value you 
receive. 
There you have it. You can: 

A. Join the Envyrn"^ software par- 
ticipation group. You'll receive 
quarterly updates of the En- 
vyrnTMeditor and project notes. You'll 
also get the Envyrnment"^ Library 
Directory when it is available. The cost 
is $200 per year. Your first installment 
will be mailed in January of 1982. 

B. Subscribe to Diversions"^ thru 
Envyrn''^ for only $60 per year. We 
guarantee an experience you've 
heretofore only dreamed of. The 
premier issue for the TRS-80 Models I 
and III is projected to be available in 
December of 1981 . An Apple version is 
expected to be released in March of 
1982. 

Envyrn"^ is a copyrighted program 
with all rights reserved by its author, 
Roger W. Robitaille Sr. Envyrn"^ is 
an extremely significant breakthrough 
in computer software and will be 
treated as such by its owner. The En- 
vyrn"^ editor prototype and the 
GAMEPLAY interpreter, included in 
this issue and on TRS-80 DV, are for 
private use only. Any other use of these 
programs, for whatever purpose, is 
subject to specific written approval 
from the author and SoftSide Publi- 
cations. Q 



GAMEPLAY/BAS 



Instructions for S-80 DV 



GAMEPLAY is the prototype of the 
interpreter being prepared for Diver- 
sions™, the upcoming Envyrn™-based 
magazine. It controls the execution of 
specially prepared Envyrnments'"''^ and 
the player's movement through them. 

When the program is run, you will 
be presented a small menu with three 
options. The first allows you to enter 
the Envyrnmenf"*^ currently in 
memory. The second allows you to 
save an Envrynment"*^ in progress, and 
the third loads a new Envrynment"*^ 
from diskette. In most instances, you'll 
first want to load the database on disk 
called ADV/DAT, then enter it. 

After doing this, you will see a 
display showing where you are, as well 
as displays giving your facing, activity 
level and energy. Usually, you'll be 
shown only the tile you occupy 
(flashing) and the tiles immediately 



surrounding your position. Once 
you've viewed a tile, however, you'll be 
able to see it from any distance, as long 
as it will fit within the screen 
parameters. Those with little patience 
may use the CHEAT command (see 
below). The function controlling the 
exposure of tiles will be disabled, and 
the screen will fill completely with tiles. 

These are the operating commands 
presently active in the program. Their 
functions are: 

@ = Enter as prefix to long 
command (see below) 

( < ) = Decrease body activity 
(slower) 

( > ) = Increase body activity 
(faster) 

S = Change body activity to swim 

Left Arrow = Turn facing 
counterclockwise 

Right Arrow = Turn facing 
clockwise 
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- = Return to menu 

U = Use something (such as a 
door-open/close) 

E = Enter (a building) 

I = Identify the parcel directly in 
front of you 

Long commands 

Hitting the @ symbol puts you in a 
mode in which you can type multiple 
letter commands. Only the first three 
letters are significant, although the en- 
tire command may be typed, if desired. 
LOO(K): Change display to graphic 
mode one 

SEE: Graphic mode two 
WAT(CH): Graphic mode three 
IDE(NTIFY): Same as I above 
ENT(ER) or GO: Same as E above 
SWI(M): Same as S above 
CHE(AT): Disable limited display 
(see above) 

NOR(MAL): Disable CHEAT 
function Q 
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SUPER DAIRY FARMING 



Apple version by Jean H. Anderson 
original program by Scott Tapley 

"Super Dairy Farming" is a simu- 
lation for a 48K Apple with Applesoft 
and disk drive. It is included as a bonus 
program on this month's Apple Disk 
Version of SoftSide. 

This simulation first appeared as an 
S-80 program in the May issue of Soft- 
Side; an Atari translation was pub- 
lished in August. Now Apple disk 
subscribers, too, can exercise their 
agri-business skills with this enhanced 
translation. 

Beginning with half a million 
dollars, your goal is to accumulate 
10,000 points, based on your total 
assets of land, cows, money, etc. You 
may choose to play with or without the 
"natural disaster" option, which sub- 
jects you to such goodies as disease, 
tornadoes, lightning, hailstorms, and 
drought. After buying a farm, you pro- 
ceed to the three-phase daily cycle of 
the simulation. 

In Phase One you care for the cows 



in various ways: feeding, milking, buy- 
ing, and selling. In this version the 
cows need to be milked twice each day, 
or milk production will suffer. Feeding 
them is also a priority, obviously: You 
can do that by letting them graze or by 
feeding them silage. Grazing costs 
nothing, but it does deplete the grass, 
and the pasture must be allowed to 
recover occasionally. If you fail to feed 
the cows, one will die later in the day, 
and they will produce inferior milk. 
When you have accumulated enough 
milk (at least 200 gallons), you can sell 
some or all of it to the milkman. 

In Phase Two you can buy and sell 
capital goods. You can buy or sell 
land; buy a cooler, a barn, or a silo; or 
even sell the whole farm if you want 
out. Except for selling land, all these 
things help to accumulate points. 

In Phase Three the computer 
calculates your points and financial 
status, and if you have an outstanding 
loan you may make a payment on it. 



Your points are calculated as follows: 
One point for every: 
$10,000 in cash; 

5 acres of land; 
500 gallons of milk; 
Small cooler; 

7 Jersey cows; 

6 Guernsey cows; 
5 Ayrshire cows; 

4 Brown Swiss cows; 
3 Holstein cows. 

Two points for every large cooler. 
Four points for every small silo. 
Five points for every barn or medium 
silo. 

Six points for every large silo. 
Minus one point for every $100 bor- 
rowed. 

Lacking the necessary 10,000 points, 
you then begin a new day with the same 
three-phase format. When you do 
reach your goal (IF you do), you are 
given a rating based on the number of 
days elapsed, and you can go back to 
Sleeping in past sunrise every morning. 
O 
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ARE'NA OF 




OCTOS 

BY AL JOHNSTON & STEVE D. KROPINAK 



"Arena of Octos" is a graphic 
fantasy-conflict game for a 16K S-80, 
or a 32K Apple with Applesoft in 
ROM. 

This pair of programs is unique. 
Normally, when we publish two or 
more listings of a given program for 
different computer systems, they con- 
sist of one "original" plus one or two 
"translations." Not so with "Arena of 
Octos." In this case there are two 
originals: The authors wrote them in- 
dependently, after first discussing and 
agreeing upon the basic concept of the 
game. 

You are the captain of a star cruiser 
which has been captured in an area of 
space claimed by the Octon Empire. 
The Octons are an aggressive race of 
creatures who evolved with eight 
fingers; thus the number "8" figures 
significantly in their culture (as does 
"10" in human cultures). 

Octons hold individual courage and 
fighting ability in high regard. 
Therefore, the Council of Eight (ruHng 
body of the planet Octos) has granted 
you the opportunity to free yourself 



and your crew, by accepting "The Oc- 
ton Challenge." In an eight-sided 
arena, armed with only sword and 
shield, you will battle Octon warriors 
in a series of increasingly difficult con- 
tests of strength and strategy. 

Two hazards are in the arena: a 
firepit in the center, into which a com- 
batant may fall; and eight stones, 
which may trip him. Each fighter's 
strength is measured in "strength 
points." He is defeated when all his 
strength points have been lost, either 
from an opponent's blows or from the 
hazards. If you are able to defeat all 
the Octons, you will be freed; if you 
are defeated by any of them, you and 
your crew will remain Octon slaves. 

There are two "species" of Octons 
(depending upon which type of com- 
puter you are using), with slightly dif- 
ferent characteristics and rules for for- 
mal combat. 

APPLE VERSION 

The Apple version utilizes Hi-Res 
graphics and sound. It requires 32K 
RAM, and Applesoft in ROM. All ac- 
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tion is controlled by game paddle 0: 
Turning the knob moves the selection 
cursor, and pressing the button makes 
the actual selection. 

Octons are about the same size as 
humans, so all combatants begin with 
the same strength (16) and about the 
same "speed of action." A combatant 
may lose strength points in three ways: 

1. Opponent's hit: A hit results in a 
loss of one point. 

2. Falling down: A fall results in a 
loss of one point, and leaves the com- 
batant lying down, undefended. 
Moving diagonally across a stone gives 
a 50% chance of tripping. A comba- 
tant who pushes another has a 20% 
chance of slipping; if the one pushed is 
already down, the pusher always slips. 
A combantant who is pushed may 
stumble; the better defended he is, the 
less will be his chance of stumbling. 

3. Moving into the firepit: A comba- 
tant who trips, walks, or is pushed into 
the central firepit will lose a random 
number of points, and will then fall 
randomly outside the pit, lying down 
and undefended. 

continued on next page 
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continued from previous page 

A combatant's speed is measured by 
his "action index." Your action index 
is 4 in the first contest, meaning that 
you may take four actions before the 
Octon's turn. For each action you may 
choose to move, strike, or defend. 

1. Move. You may move in any of 
eight directions, or hold your present 
position. Choosing the move option 
will allow you to indicate the direction 
of your movement on a circular move- 
ment indicator on the screen. (Posi- 
tioning the cursor at the center of this 
indicator means "hold position.") If 
you are lying down, you MUST move 
to "hold position" in order to get up; 
you cannot move to a new position un- 
til you do, although you may strike or 
defend while down. When a combatant 
moves into another's position, the sec- 
ond is pushed; the pushed combatant 
will not necessarily move directly op- 
posite to the push. 

2. Strike. A combatant must be 
within one move of an opponent to 
make a hit. If you are fighting two Oc- 
tons, strength losses are subtracted 
from the closer one; if they are both 
one move away, losses are subtracted 
from the one with the higher action in- 
dex (even if that Octon has already 
been defeated). The chance of hitting 
depends upon how well the opponent is 
defended. If you are defended when 
you strike, your status changes to 
undefended (or attack). 

3. Defend. A combatant's defense is 
" + " (fully defended), "0" (partially 
defended), or "-" (undefended). When 
the "defend" action is taken, defense 
is set to "-I-". If an opponent hits 
(90%chance), no strength is lost, but 
the defense status decreases to "0". At 
"0" defense a good swing might be 
avoided by dodging (50% chance), but 
the defense status then drops to "-". 
At "-" defense, there is only a 10% 
chance of the opponent missing. 

If you win a contest your action in- 
dex increases, as does that of your op- 
ponent(s). After the first two contests 
you must fight two Octons at a time. If 
you defeat eight Octon warriors you 
win The Octon Challenge and will be 
freed. 

The Apple species of Octons are 
agressive, but not foolhardy. They will 
usually try to move toward you to at- 
tack. However, they will not pur- 
posefully walk through the firepit to 
get to you, and will try to end their turn 
defended, one move away from you. 
They will take a chance of crossing 
stones to reach you; and, if you are 
fighting two Octons, they won't 
hesitate to push each other out of the 
way to get to you. They usually won't 
56 



try to push you, however, unless you 
are near the firepit. 

A few special notes on the Apple ver- 
sion should be observed. After typing 
in the program, DO NOT RUN it 
before you SAVE it! The first time you 
RUN the program, the shape tables 
and sound routine are POKEd into 
memory above the Hi-Res graphics 
map. Since the lines which do this are 
then no longer needed, they are then 
DELETEd so that the program will oc- 
cupy less space and fit into memory 
(just barely) under the Hi-Res area. 
Since the DELETE command stops 
program execution, you must then type 
RUN again to get on with it. After the 
first game ends (by either winning or 
losing The Octon Challenge), you need 
only type RUN once, since the 
Machine Language routines are still in 
memory and the program lines which 
do the POKEing are gone. 

When you first type in the program, 
then, check lines 5010-5210 very 
carefully for errors; then SAVE the 
program; and then try a RUN. On the 
slim chance that you entered the whole 
thing without an error, your SAVEd 
copy will be correct. If you do get an 
error along the way, you will have to 
re-LOAD the complete program before 
making corrections, then re-SAVE it, 
and then try RUNning again. 

By the way, if you try any modifi- 
cations to the program, be aware that 
you have only 43 free bytes to work 
with before you start overlapping the 
Hi-Res screen. If this happens, you will 
find the last characters or lines of the 
program disappearing after it is RUN, 
and it will have to be shortened. 

S-80 VERSION 

The S-80 version requires less than 
16K of memory. Action is controlled 
through the keyboard, and optionally 
through a numeric keypad. The play is 
similar to that described above for the 
Apple, with a few differences. 

You begin combat by facing one Oc- 
ton, then two, then three, and even- 
tually eight. Prior to actual combat, 
you are allowed a practice session if 
you choose. Each Octon begins with 
eight strength points and an action in- 
dex of eight, whereas you have a 
strength rating and an action index of 
ten. During each round of the combat 
you may issue ten commands, and each 
of the Octons eight. 

Commands are issued from the 
keyboard. When you want to move, 
you may use either a numeric keypad 
or a square arrangement of keys on the 
normal keyboard to specify one of 
eight directions: 
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1 or M: down-left. 

2 or ,: down. 

3 or .: down-right. 

4 or J: left. 

6 or L: right. 

7 or U: up-left. 

8 or I: up. 

9 or O: up-right. 

You may also swing your sword by 
pressing "S", raise your shield by 
pressing "R", or pass (and forfeit your 
remaining moves) by pressing "P". 

S-80 Octons are smaller than 
humans, so they won't try to push you; 
however, you can still push them. If 
pushed across a stone, against another 
Octon, or against the arena wall, the 
Octon will have a greater chance of 
being hit. Their attack strategy is 
generally to swing, move, and swing 
again. The firepit does not frighten 
them, if it is the closest route to the 
human. Octons are, in fact, fearless — 
until the first one is removed from the 
arena. When this happens, the weakest 
of them will usually retreat and try to 
climb the arena wall, while the stronger 
ones fight the human. 

Unlike some other programs, you 
cannot figure out an easy way to win 
by analyzing the code. The play will 
not be the same twice, even if the same 
moves are entered. The author himself 
spent a great deal of time fighting Oc- 
tons until he successfully met the Oc- 
ton challenge, and was freed from the 
arena long enough to send the program 
to SoftSide. 

PROGRAMMING NOTE 

Rarely do we receive programs with 
such extensive documentation as the 
authors supplied with "Arena of Oc- 
tos." The listings which follow should 
serve as excellent examples for other 
programmers who send in submissions 
for publication. 

APPLE VARIABLES 

Unless otherwise noted, subscripts for 
array variables are keyed as follows: 
= center of arena; 1 = human; 2-3 = 
Octons; 4-11 = stones; and 12 = new 
position. 

A: Actions left in combatant's turn. 

A(l-3): Action index of combatant 

(4-8). 

AN: Angle. 

B: General use. 

C: Combatant undergoing some 

process (drawing, decrementing 

strength, etc.) 

C$(0): String for making random 

Octon names. 

C$(l-3): Combatants' names. 



CA: Combatant currently taking 

actions. 

CO: Contest number. 

CT: Combatant (or stone) whose 

position has been moved into (or 

crossed). 

D: Decision (move/strike/defend, or 

direction to move). 

D(l-3): Defense of combatant (+1, 0, 

or -1). 

DF(l-3): Flag for defeated combatant 

(+1 if defeated, if not). 

E,F,G,H: Corners of octagons (pit 

and arena walls). 

K,M: Temporary value of combatant, 

or position when checking relative 

position. 

L,L1,L2,L3,L4: General use loop 

variables. 

L(l-3): Loss to be subtracted from 

combatant's strength. 

MD: Move direction for Octon ( + 1 

= toward human, -1 = away). 

N: Number of combatants in contest 

(also, number of stones in 

initialization). 

ND: Total number of Octons 

defeated. 

P,P1,P2: Random numbers. 



R(l-3): Rotation of combatant's 

shape. 

RS,R1,R2,R3: Square of radius 

between positions K and M. 

RT: Temporary radius-squared value. 

S: Shape (1 = human, 2 = Octon). 

SP(l-3): Shield position (puts 

combatant's shield on left, middle, or 

right). 

ST(l-3): Remaining strength of 

combatant. 

X,Y: General use position variables. 

X(0-12),Y(0-12): Current position. 

XD,YD,X1,Y1,X2,Y2,X3,Y3: 

Difference in horizontal and vertical 

positions of K and M. 

XN,YN: New position. 

S-80 VARIABLES 

AN: Out-of-arena flag. 
A$: INKEY$ variable. 
BD(14,14): Board array. (Defines out- 
of-arena, pit, and stone positions.) 
C(8,8): Octon array. (Contains Octon 
position and status: strength, number 
of moves left, etc.) 
CL: Number of Octon moves left. 
CX,CY: Octon's present position. 



DD: Practice flag. 

DS: Distance from Octon to human. 

DX.DY: Difference between Octon 

and human positions. 

F$(25): Fire string. 

FG: General utiUty flag. 

G$: Plural string. 

GG: Message variable. 

HD: Human-shielded flag. 

HL: Number of human moves left. 

HM: Number of human moves (10). 

HS: Human strength. 

HT: "Human's turn" flag. 

HX,HY: Human's position. 

I,J,K,L,M,N: Iteration variables. 

LF: Number of Octons left. 

M$: Message string. 

MM: Message number. 

MV: Move (1 - 4 or 6 - 9). 

NC: Number of Octons. 

NX,NY: New location. 

PX,PY: Present location. 

P$: Player string. 

RN: Random number. 

SB: "Struck before?" flag. 

WK: Weakest Octon's strength. 

XI, Yl: Temporary X and Y 

locations. 

X,Y: Graphics variables. 



Apple Version 

Go to routine to start game. 

5 LOHEH! 17000: BOTO 5000 
Generate random numbers. 

10 P = RND (1) I lOOiPl = INT ( 
RND (I) » 3) - l!P2 = INT 
( RND (1) t 3) - li RETURN 

Make coals in firepit glow. 

20 60SUB 10: HCOLOR' 5: IF P < 5 

THEN HCOLDR> 
25 X » PI t RND (1) t 10 + SOiY = 

P2 » RND (1) MO + 90: HPLOT 

KlY: RETURN 



Print combatant's strength and 
defense status; decrement strength 
if needed. (Pokes set text window to 
16 spaces at left of screen.) 



30 POKE 32,0: POKE 33, i&: HOflE : 
VTAB 21: INVERSE : PRINT * 
WRRIOR "i: HTAB H: PRINT ' 
ST";; HTAB M: PRINT "D": NGRHAL 
: FOR L « 1 TO N: VTAB 21 ♦ 




L: PRINT Ct(L);: IF ST(L) < 
10 AND ST(L) > - 1 THEN PRINT 

35 PRINT " "iSTIDi" ';; IF D(L) 

= 1 THEN PRINT '+"i 
40 IF DID « THEN PRINT "O'j 
45 IF D(L) = - 1 THEN PRINT "- 



"I 

50 IF L < 3 THEN PRINT '" 

60 NEXT : FOR L ' 1 TO Ni IF L(L 

) > THEN ST(L) = ST(L) - 1 

;L(L) » L(L) - 1: FOR LI » 1 

TO 4: it Tl&0,i0: ti T240,20: 

NEXT LI: 50TD 30 

continued on next page 
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continued from previous page 


190 RETURN 


Lines 300-390 draw a sword swing 


65 NEXT : RETURN 


Lines 200-230 erase a combatant's 
shape: 


and determine the results: 
If combatant is defending, set 


Set combatant's defense to fully 


Determine which shape to erase. 


defense to attack position (-). 


defended ( + ). 








200 m= RIOiS Mi IF C > 1 THEN 


300 HONE i PRINT C«IC)}' STRIKES 


70 mi i PRINT MIC))' DEFENDS. 


S = 2 


...')) IF DIC) < > - 1 THEN 


": IF D(C) > 1 THEN 4000 




D(C) > - 1) 80SUB 220) 60SUB 


75 60SUB 220iD(C) « li 60SUB 250 


Erase combatant. 


250 


t 60TO 4000 








210 HCOLORs Oi DRAM S AT X(C),Y( 


Draw sword down-swing. 


Check wlietfier position IVI is the 


C) 




same as (or near) any of N other 


220 HCOLOR= 


310 FDR L « 1 TO 3) 60SUB 370) NEXT 


positions. CT returns with the 
subscript value of whatever is in the 




) BOSUB 390i IF C > 1 THEN K 


same position as IVI, or with if 


Erase (or draw) shield and sword. 


« 1) GOTO 330 


nothing is in the same position. 








230 DRAN 3 AT X(C) +61 SP(C),Y 


Check whether Octon is close 


80 CT » 0! FOR K ■ 1 TO N: IF K « 


(C) - 3i DRAW 4 AT X(C) - 6 t 


enough to hit. 


H THEN NEH i RETURN 


SP(C),Y(C) - 3i ROT« Oi RETURN 




85 608UB 100) IF RS < 180 THEN C 




315 N > li FOR K 2 TO Ni BOSUB 


T « KiK « Ni NEXT i RETURN 


Lines 240-290 draw a combatant's 


lOOi IF RS < 600 THEN CT > K 


90 NEXT 1 RETURN 


shape: 


iK ' Ni NEXT iK ' CT) GOTO 3 




Set combatant's position to new 


30 


Determine relative distances of 


position; make movement sound. 




position K from position IVI. 


240 X(C) = XNiY(C) = YNi FOR L3 » 


Octon is too far away to hit. 


100 X(12) « XN8Y(12) = YNjXD" X( 


1 TO 3) fc T255,2i FOR L4 ■ 1 


320 NEXT i FOR L > 1 TO SOOi NEXT 


K) - X(H)iYD » Y(K) - Y(H)iR 


TO 40) NEXT L4,L3 


i PRINT 'AND HISSES! 'i PRINT 


S » XD ^ 2 + YD * 2: RETURN 


Determine where to draw sword and 


■A WILD SHIN6!';i GOTO 360 




shield (left, middle, right). 


If opponent Is fully defended, check 


Print action heading. (Poises set text 




for a deflection (90% chance); make 


window to 20 spaces at right of 
screen.) 


250 N s Ci IF C > 1 THEN K > li BOSUB 


deflection sound. 




lOOi GOTO 280 


330 BOSUB lOi IF DIK) * 1 AND P > 
10 THEN PRINT C«(K);' DEFLE 


110 POKE 33,20i POKE 32,20; HONE 


if combatant is human and fighting 


CTS THE BLON.'iiDIK) « 0) V 


1 VTAB 21: HTAB 7s INVERSE i 


2 Octons, determine which is closer. 


T150,3) I T255,3! GOTO 360 


PRINT "ACTION "jAlO - A ♦ 






li NORNAL t POKE 34,21i HONE 




if opponent is half-defended, check 


1 RETURN 


260 K > 2! 80SUB 100) IF N > 2 THEN 

280 
270 RT ' RS)K > 3i 60SUB lOOi IF 


for a dodge (50% chance). 


Checl( whether a combatant has 


335 IF DIK) ■ AND P > 50 THEN 


crossed a stone; if so, determine 


RS > RT THEN K ' 2i 60SUB 10 


PRINT CtlK){' DODGES THE 


whether a fall occurs. 





BLOM!';iD(K) ■ - It GOTO 3 




280 SP(C) ' S8N IDIO) t S8N IX 


60 


150 FOR K « 4 TO lliN > Ci 60SUB 


D)i IF RIO < > THEN SPIC 




100) IF RS > 200 THEN NEXT 


) » 


Check for a hit (90% chance). 


1 RETURN 






160 N > 12) 80SUB lOOi IF RS > 20 


Determine which shape to draw. 


340 IF P > 10 THEN 350 


THEN NEXT i RETURN 




345 PRINT 'AND HISSES... 'i GOTO 


170 B > KiK > Ci 60SUB lOOiK ■ Bi 


285 ROT« RIOiS » li IF C > 1 THEN 


360 


IF RS < 400 THEN NEXT : RETURN 


S « 2 


IHit sound. 


180 K > Hi NEXT 1 80SUB lOi 80SUB 


Draw combatant. 




200) IF P < 50 THEN R(C) > 3 




350 FOR LI = 1 TO 4i I T200,2) FOR 


2 M6 t S6N (XD)iD(C) > - 


290 HCOLORb 1 + 5 t (2 - S)i DRAW 


L2 « I TO 20i NEXT L2,Lli PRINT 


l)L(C) ' li PRINT CtlOi" TR 


S AT XIC),Y(C)i HCDLOR- 3) BOTO 


'AND HITS '}C«(K)}'!'iL(K) » 


IPS') PRINT -OVER A STONE!' 


230 


1 



58 



SoftSide October 1981 



Draw sword upswing. 


Checic wliether combatant moved 


Check whether new position is out 




into fireplt. 


of arena. 


3&0 FOR L > 2 TO STEP - 1: 80SUB 






370: NEXT i 80SUB 390i GOTO 


440 IF RS < 500 THEN PRINT 'AND 


540 K = 12;H = 0: SOSUB 100:RT = 


4000 


FALLS'! PRINT 'INTO THE FIR 
EPIT!';: 60SUB 200: SOSUB 60 


RS: IF RS < 4000 THEN 560 


Erase sword and rotate it In swing. 


0! GOTO 4000 


Pick an alternate new position, 
randomly about old position. 


370 HCOLORb 0) 60SUB 3B0i ROT' b 


Check for a push. 




4 - L » 8 t SP(C); HCOLOR* 3 




550 SOSUB 10: XN > X(C) M6 t PI 




450 H * 12i 6DSUB 80: IF CT < > 


!YN > Y(C) ^ 16 t P2: GOTO 5 


Draw (or erase) sword. 


THEN 500 


40 


380 DRAH4 AT UZ) - b t SP(C),Y 


Check for crossing a stone; draw 


Check whether new position is in 


(C) - 3i RETURN 


move. 


another combatant's position; if so, 
select a new one. 


Sword swing sound. 


460 80SUB ISO: SOSUB 200: SOSUB 






240: SOTO 4000 


560 H ■ 12: GOSUB 80: IF CT < > 


390 FDR Li > TO 48 STEP 3i It T 




THEN 550 


Ll,2i NEXT Lit RETURN 


Lines 500-590 determine the results 






of a push: 


Check if new position is in firepit. 


Lines 400-460 determine results of 






combatant's move: 


if a combatant tries to push another 
who is already down, the one 




If combatant is standing and holds 
position, print message and return. 


pushing trips. 


570 IF RT < 500 THEN PRINT C«(C 
Ij' FALLS'! PRINT 'INTO THE 




900 n > CiK > CT: SOSUB 100: XI « 


FIREPIT!'! 60SUB 600 


400 HONE 1 PRINT CI(C)|i IF D > 


XD:Y1 » YD: IF R(CT) < > THEN 




AND R(C) > THEN PRINT ' 


PRINT C«(C))' TRIPS": PRINT 


Draw combatant in new position. 


HOLDS POSITION.'! SOTO 


'OVER '|C«(CT)i'.'! SOSUB 20 




4000 


0: SOSUB S90iX(C) > XNiY(C) > 
YN: SOTO 550 


580 SOSUB 240:0 = CA: SOTO 4000 


If combatant Is lying down and 




Rotate shape, set defense to 


tiolds position, stand him up. 


Determines whether pushing 


undefended (-), and set strength loss 




combatant slips (20% chance). 


to 1 for combatant who falls. 


410 IF D > AND R(C) < > THEN 






PRINT ■ SETS UP.'! 60SUB 20 


510 PRINT C«(C)i' PUSHES': PRINT 


590 RIO « 32 - 16 1 SSN (XD)!D( 


OiR(C) = 0!XN = X(C)!YN = Y( 


C»(CT)| '...'; SOSUB 10: IF P 


C) » - 1:L(C) = 1: RETURN 


C)i GOTO 460 


< 20 THEN SOSUB 200: SOSUB 
590: XN » X(C):YN = Y(C): PRINT 




If combatant is lying down and tried 


C«(C);' SLIPS!';! SOSUB 240: 


Lines 600-630 are the firepit 
subroutine: 


to move, print message and return. 


SOTO 4000 






Put combatant in firepit, make 




Determine whether pushed 


burning sounds, set loss to random 


420 PRINT ' MOVES...'! IF R<C) < 


combatant stumbles (25% chance if 


number. 


> AND D < > THEN PRINT 


fully defended, 50% if half- 




'BUT CAN'T SET UP.'i FOR L « 


defended, 

75% If undefended). 


600 L(C) « L(C) M!B » B + 1: IF 


1 TO BOOi NEXT ! GOTO 4000 




B > 4 THEN B « 1 




520 C« CT: SOSUB 200: C > CA: SOSUB 


610 R(C) > 16 t B: SOSUB 10:XN ' 




200: SOSUB 240:0 » CT: IF P - 


80 + 8 1 PI + INT (C / 2):Y 


Cliecl( wlietfier combatant tried to 


D(C) t 25 > 50 THEN SOSUB 5 


N <= 80 + 8 t P2: GOSUB 240: I 


jump out of arena; if so, draw jump. 


90: HONE : PRINT ZHZ);' STU 


Tl + B,15! FOR LI » 1 TO P / 




NBLES!' 


20: i T255,2: FOR L2 = 1 TO 


430 H ' 12!K ' 0: 6DSUB 100: IF R 




P / 10: NEXT L2,L1: SOSUB 20 


S > 4000 THEN PRINT 'AND TR 


Determine new position of pushed 


0: IF PI » OR P2 « THEN 


lES TO JUNP OUT OF THE ARE 


combatant. 


600 


NA!';: 60SUB 200:X * X(C):Y ' 




620 XN » (24 + INT (C / 2)) 1 PI 


Y(C): 80SUB 240i 6DSU6 200: X 


530 YN« Y(C) ♦ 16 t SSN (Y1):XN 


+ 80:YN « 24 t P2 + 80:H = 


N > X:YN « Y: 60SUB 240: SOTO 


X(C) * 16 t SSN (XI): IF 


12: SOSUB 80: IF CT < > THEN 


4000 


XI < 8 THEN XN « X(C) 


600 continued on next page 
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1600 K ' Ot 60SUB 100: IF R8 > 40 


3 AT X,Yi IF S > THEN 400 


Toss combatant out of pit, lying 


00 OR RS < 500 THEN 1400 


2160 XN « Xll) i 16 t S8N ( INT 


down and undefended. 


Draw combatant, set strength to full 


( COB (AN) + .5))]YN ■ Yd) *' 
16 t S6N I INT ( SIN (AN) * 


630 60SUB 200] R(C) » 32 M6 t P 


(16), defense to undefended (-); set 


.5)): GOTO 400 


l!D(C) « - 1: 60SUB 240i RETURN 


turn to human's. 


Lines 3000-3150 handle Octon's 




1700 NEXT : FOR C > 1 TO NiD(C) ■ 


move: 


Draw arena walls and firepit. 


- 1:8T(C) ■ 16iR(C) ■ OiXN ■ 


If Octon Is defeated, go to next 




X(C):¥N « Y(C>iDF(C) « 0: BOSUB 


combatant's turn. 


BOO H6R 


240: NEXT :C * hXN ■ XIDiY 




BIO E ■ 8:F « 4Bi6 > 112!H = 152: 


Ns Yd) 




HCOLOR> 6i 6DSU6 820iE ' 69 




3000 IF DF(C) > 1 THEN A « li GOTO 


:F ' 75>6 = B5iH « 91: HCOLOR= 
5 
820 FOR L = 1 TO 3: HPLOT F,E TO 


Draw direction indicator. 


4000 


1800 HCOLOR« 3i FOR L » TO 7: A 


If Octon is down, he gets up. 


G,E TO H,F TO H,B TO 6,H TO 


N « L t 3.14 / 4i HPLOT 210 + 




F,H TO E,6 TO E,F TO F.EsE « 


10 t COS (AN), 120 * 10 t SIN 


3010 BOSUB llOiHD ■ liD > 1: IF 


E - 2iF » F - 2:B = G + 2iH = 


(AN) TO 210 + 20 t COS <AN) 


R(C) < > THEN D ■ 0: GOTO 


H + 2} NEXT L( RETURN 


,120 * 20 } SIN (AN): NEXT 
: 60SUB 30 


400 
Find relative positions of human. 


Lines 1000-1800 initialize new 




firepit, and Octon. 


contest: 


Lines 2000-2160 handle human's 




Draw arena and pit; start loop for 


move: 


3020 N > CiK > 1: GOSUB 100:R1 > 


stone placement. 


Use paddle to move decision 


RS:X1 « XD:Y1 ■ YD:n ■ 0: GOSUB 




cursor and choose option. (Peek 


100tR2 ■ RSiX2 ■ XD:Y2 ■ YD: 


1000 60SUB BOOi HCOLOR= 3: ROT< 


checks for paddle button press.) 


K > Ci GOSUB 100: IF lA > 3 AND 


OiB ' NlN « 4i FOR H » 4 TO 




Rl > 600) OR (A > 1 AND Rl > 


n 


2000 BOSUB llOi HTAB 9: PRINT "H 


2200) OR (A < 3 AND Rd) > 




OVE": HTAB 9: PRINT 'STRIKE' 


AND Dd) < 1 AND R2 < 1500) 


Pick random stone positions; check 


: HTAB 9: PRINT 'DEFEND') 


THEN 3100 


if overlapping another stone or 


2010 D » INT ( PDL (0) / 90) + 1 


3030 IF A > 1 AND Rl > 600 THEN 


outside arena. 


! VTAB 22t HTAB D t 40 - 33: 


D ■ 0: GOTO 400 




INVERSE : PRINT ' 'j; IF PEEK 


3040 IF A « 1 AND Rl > 600 THEN 


1100 60SUB 10! JIN) - INT < RND 


(49249) > 127 THEN 2030 


70 


(1) t 41 t 16 » PI + BOiYill) 


2020 NORNAL ; BOSUB 20: VTAB 22: 


3050 IF A > 2 OR (Dd) < 1 AND 1 


' INT ( RND (1) t 4) t 16 t 


HTAB D » 40 - 33: PRINT ' ' 


(A ' 2 AND STIl) < 3) OR (A ■ 


P2 * 80; 60SUB B0> IF CT < > 


)i 60T0 2010 


1 AND STd) > 1))) THEN 300 


THEN 1100 


2030 NORMAL i FOR L > 1 TO 1000: 


3060 IF A > 2 THEN HD > - 1: GOTO 


1200 K * Oi 60SUB lOOi IF RS > 40 


NEXT : ON D GOTO 2100,300,7 


3100 


00 OR RS < 500 THEN 1100 





3070 GOTO 70 


Plop the stones in the arena. 


IHuman decided to move; now 
choose direction. 


Octon decided to move; determine 
new direction. Check for move into 
pit. 


1300 DRAW 6 AT X(tt),Y(N):N > N + 




K'** 


li I T50,5l I T255,5i NEXT i 


2100 HONE 1 VTAB 22: HTAB 6; PRINT 


3100 IF ABS (XI) < 8 THEN XI > 


N » B: FOR M = 1 TO N 


■DIRECTION?' 







2110 HCOLOR> 3iD ' INT ( PDL (0 


3110 XN > X(C) M6 t HD t 86N ( 


Pick random positions for 


) / 29): IF D « THEN X « 2 


X1):YN « Y(C) M6 t HD t SSN 


combatants. 


lOiY * 120: GOTO 2130 


(Yl)tK > 12:X3 « XD:Y3 > YD: 




2120 AN > D t 3.14 / 4:X ' 210 * 


BOSUB lOOi IF RS > 500 THEN 


1400 60SUB 10: IF PI « OR P2 = 


25 1 COS (AN}:Y « 120 + 25 t 


400 


THEN 1400 


SIN (AN) 


3120 IF SBN (YD ■ THEN YN « 


1500 X(H) = { im { RND (1) t 5) t 


2130 DRAM 5 AT X,Y: IF PFFK (49 


YN M6 t 86N (Y3)i 60T0 40 


16 + B + INT (H / 2)) 1 PI + 


249) > 127 THEN 2150 





BOiY(N) > ( INT ( RND (1) t 


2140 XDRAM 5 AT X,Y: GOSUB 20: 60T0 


3130 IF SBN (XI) > THEN XN > 


5) t 16 ^ 8) t P2 i 80: BOSUB 


2110 


XN U6 t 88N (X3)i BOTO 40 


80: IF CT < > THEN 1400 


2150 FOR L « 1 TO 500: NEXT : XDRAH 
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3140 IF ABS (¥3) > M THEN YN ■ 


4200 TEXT t HONE i VTAB 4: PRINT 




Y<C)i MTO 400 


■ YOU HAVE LOST THE OCTON C 


Poke in iVIachlne Language routines 


3130 in > X(C)i 60T0 400 


HALLEN8E, ANDNUST NGN HORK I 


upon running program for the first 




N THE OCTAL PALACE FOR SCR 


time. 




APS OF FOOD...': PRINT i PRINT 




Lines 4000-4050 handle results at 


' UNTIL YOU ARE READY TO TR 


9030 FOR L * 16640 TO 16929: READ 


the end of an action: 


Y ASAINI'i FOR L ■ 1 TO 160: 


B: POKE L,Bi NEXT 


Print new strength and defense 


I T RND (1) t 290,41 NEXT : 


9040 POKE 232,01 POKE 233,69: POKE 


status; redraw combatants, arena, 


END 


1013,76: POKE 1014,220: POKE 


and stones; check for a defeat. 




1019,69 
9090 VTAB 20: PRINT 'TYPE 'RUN' 




Increment number of Octons 


TO BE8IN.': DEL 9010,9210 


4000 608UB 30i FOR C > 1 TO Ni 60SUI 
220i B08UB 2S0i NEXT iC > CA 


defeated. 


Data (5100 - shape table data; 
5110-5130 - human shape; 5140-5170 


1 S08UB BlOi HCOLOR> 3i FM 


4300 ND « ND Ml IF ND < > 2 t 


- Octon shape; 5180 - shield, sword, 


L > 4 TO lit MAN k AT X(L), 


CO - 2 AND CO < > 1 THEN 40 


direction marker, and stones; 


Y(L)i NEIT 1 FOR L « 1 TO Ni 


00 


5190-5210 - &T sound routine). 


IF 8T(L) < 1 ANO DF(L) ■ THEN 






B « LiL ■ 3i NEXT i SOTO 410 




9100 DATA 6,0,14,0,89,0,182,0,19 





Contest won by human. 


8,0,209,0,219,0 


4010 NEXT 




9110 DATA 36,36,36,36,60,49,21,6 




4400 TEXT : HONE : VTAB 8: PRINT 


3,63,46,49,53,63,63,14,49,21 




' YOU HAVE DEFEATED ';ND;' 


,63,63,223,19,49,49,49,49 


Decrement actions remaining; check 


OF THE 8 NARRIORS.': FOR L « 


9120 DATA 49,49,30,63,63,63,63,6 


whether combatant has any left. 


1 TO ND: ( T160 - L t 10,40: 


3,14,49,49,49,49,30,63,63,63 




V T1M,40: NEXT 


,14,49,49,62,63,99,49,49 


4020 A ■ A - h IF A < > THEN 






4090 




9130 DATA 62,63,59,109,93,295,99 




If aii 8 Octons have not been 


,109,93,255,299,42,49,13,49, 




defeated, increment action Index of 


53,63,255,63,63,0 


Sets turn for next combatant. 


human and begin next contest. 


9140 DATA 36,36,36,36,108,73,17, 
223,99,63,259,27,14,49,49,45 


4030 C • C + h IF C > N THEN C « 




,45,49,30,63,63,63,63,14,45 


1 


4900 IF ND < > 8 THEN Ad) ■ A( 


5150 DATA 45,45,30,63,63,223,19, 


4040 A ■ A(C) 


1) + 1: PRINT : PRINT ' EXP 


45,45,45,49,49,45,30,63,63,6 




ERIENCE HAS IHPROVED YOUR SK 


3,63,63,14,49,49,45,45,30 




ILL| YOU NOH HAVE AN ACTIO 




Go to routine for human's or 


N INDEX OF ')AI1)|'.': SOTO 


5160 DATA 63,63,63,14,45,45,62,6 


Octon's move. 


6000 


3,255,42,45,45,45,93,63,63,6 
3,63,46,45,45,45,53,223,291 


4090 CA ■ Ci ON C 80TD 2000,3000, 




9170 DATA 27,110,9,77,49,223,291 


3000 


Octon chaiienge has been won; end 


,27,159,45,45,77,41,45,53,63 




program. 


,63,223,59,63,63,0 


Combatant has been defeated. Set 


4600 VTAB 16: PRINT ' YOU HAVE 


5180 DATA 63,36,45,45,62,63,59,4 


defeat flag, draw defeated 


NON THE OCTON CHALLEN8E, AND 


9,49,62,63,119,45,30,7,0,5,6 


contestant, make sound; if Octon, 


ARE FREE TO 60!': END 


3,12,36,36,36,0,18,63,32,100 


check if ail Octons are defeated. 




,45,21,54,30,7,0,21,63,7,0 




initialization. 


9190 DATA 0,201,84,208,15,32,177 


4100 DF(B) ' liCA > CiC « Bi 608UB 




,0,32,248,230,138,72,32,183, 


200iR(B) > lii 608UB 290iC « 


9000 TEXT 1 HONE 


0,201,44,240,3,76,201,222,32 


CAi B08UB llOi PRINT CI(B)i PRINT 


9010 VTAB 8: PRINT TAB( 12) 'THE 


,177 


MS DEFEATED!'! FOR L > 1 TO 


ARENA OF OCTOS'i PRINT : PRINT 




160t i TL,9i NEXT 1 IF B > 1 


TAB( ID'BY STEVE D. KROPIN 


5200 DATA 0,32,248,230,104,134,3 


THEN 4300 


AK': PRINT : PRINT TAB! 17) 


,134,1,133,0,170,160,1,132,2 




'(6/1/81)' 


,173,48,192,136,208,4,198,1, 




9020 VTAB 16: PRINT TAB( 11) '32 


240 


Human is defeated. 


K APPLESOFT IN RON' 


continued on next page 
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Hot pursuit 
through sgtace 
and the 
vortices 
of time! 




CiHMB to?d 



The fallen Time Lord, wtio presumptuously calls 
himself The Master, is at large. 

The elders of Waldrom have supplied you with the 
hyperspace-worthy vessel Tardus, and commission- 
ed you to eliminate the evil "Master." Your resources 
include clones who will fight for you, the formidabfe 
CRASER weapons of the Tardus, and magic weapons 
such as Fusion Grenades and Borelian Matrix 
Crystals. 

Traveling through hyperspace in search of the evil 
one, you will encounter Time Eaters, Neutron Storms, 
and other alien creatures and phenomena. Entering 
real space to search planets, you will encounter still 
other dangers. You will enter native settlements to 
buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy 
him? 

(Time Lord is based on Dr. Who of PBS fame.) 



Apple Integer 
BASIC, Disk, 48K 
$29.95 





3ifection-y i 

6 5outh5trast Milford NH 03055 



continued from previous page 

5210 DATA 7,202,208,246, l&i,0,20 
8,239, 1&5,3, 133, 1,198,2,208, 
241,96 



Game initialization after deleting of 
DATA lines (to reduce program size 
below Hi-Res screen memory). 



5500 Din )((12),Y(12)iX(0) > 80iy 
10) « 80: SCALE> liAll) « 4i 
C<(0) ' 'BAKUFIDONABORELIJIH 
UPORASITOVEZI'iCKl) - 'THE 
HUHAN' 

5600 VTAB 4i PRINT ' YOUR STAR 
CRUISER HAS BEEN CAPTURED 
IN SPACE CLAIHED BY THE OCTO 
NEHPIRE.'i PRINT 

5700 PRINT ■ HOHEVER, THE COUNC 
IL OF 8 MILL BRANT YOU FREE 
DON IF YOU PROVE YOUR STREN6 
TH AND COURAGE IN THE OCTDN 
CHALLENGE: YOU MUST DEFEAT 
8 OCTON HARRIORS IN ARENA 
COftBAT.' 

5800 PRINT t PRINT ' YOUR ACTIO 
N INDEX IS 4.' 



IflitlaHzatlon of a new contest: Set 
first ttM-n to htMnan's, actions 
remaining to human's action in«lex; 
determiira number of Octon 
opponents; make up random names 
for Octons; print message to begin. 



6000 CA ' 1:A > A(1):C0 ■ CO Mt 

N > 2: IF CO > 2 THEN N * 3 
6100 FOR L » 2 TO N:C«(L) » ": FOR 

LI « 1 TO 4tC$(L) ■ C<(L) * 
m% (CtIO), INT I RND (1) t 

31 + 1),2); IF LI = 2 THEN C 

$IL) = C$(L) + "-' 
6200 NEXT :AIL) > CO + 5 - L: NEXT 

6300 VTAB 16; PRINT ■ IN COHTES 
T "|COj", YOU NILL BATTLE": FOR 
L » 2 TO N: PRINT Ct(L);', N 
HO HAS AN ACTION INDEX OF '; 
AID): IF N > 3 AND L > 2 THEN 
PRINT ',"i SPC( 16);"AND" 
6400 NEXT : PRINT ■.': VTAB 22: PRINT 
TAB! B) 'PRESS BUTTON MHEN R 
EADY.' 
6500 IF PEEK (49249) > 127 THEN 

HONE : 80T0 1000 
6600 60T0 6500 
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S-80 Version 



20 mmoi 

Location subroutine. Input: HX.HY Is 
human position; CX,CY Is Octon 
position. Output: MV is move; DS is 
distance. 

30 Dlt«HX-CIiffY«HY-CY 

40 IFDl(»OTHENIFDY>OTHEin)S«DYi NV=2: RETUR«LSEDS=-DY: NV=8:RETURN 

50 IFDY=OTH£NIFDX >OTHEtH)S=BX ! HV'ii RETIIRI«LSEDS»-DJ I HVMs RETURN 

iO DS:ABS(Dlll!lFDS<ABS(DY)THENDS=ABS(DY) 

70 IFDYXITHENIFDH >0THEHW/=3! RETURNELSE»V«1 •. RETURN 

80 I FDX >0THEI«HV«9: RETURIIELSfHV'7 ! RETURN 

Checic for Octon removed; set Hag if 
so. 

90 FB=0:IFC(I,4)<«OTHEi;(I,*)=0!PRINTM74t2»I," ■i:PRINT»940+2fI 
,' 'iiFB^-liRETIMNELSERETUMI 

Checi( for ALL Octons removed; H 
so, fiuman vvins. 

100 LF»0!F0RK*lT0MCiPSINTM48,F«(Kf8l!!tFC(K,0)THElH.F=LF+l!NEUK 

ELSENEXTK 

110 IFLF>OTHENRETURNELSE4000 

IMove direction subroutine, input: 
MV is move; PX.PY is present 
location. Output: NX^Y is new 
location. 



120 N1(=P1(!NY=PY;0NHV60T0130, 140, 150, 160, ,170, 180, 190,200 

130 NX=PM!NY=PY+l! RETURN 

140 NY=PY+l!RETURN 

150 Nl(=PUliNY=PY+li RETURN 

UO NX'PMiRETURN 

170 NX-PUliRETURN 

180 NX»PX-l;NY»PY-li RETURN 

190 NY=PY-l! RETURN 

200 NX=PX+l!NY=PY-l;RETURN 

Shield-raised subroutine. 

210 PRINTJ109, 'SHIELD RAISED "i!lFHTTHENPRINT8875,"Y'|!HD=-l:RET 
URNELSEPRINT»876+2»I,'Y"i!C(I,5)=-l;RETURN 

Shield-down subroutine. 

220 PRINTJ109, "SHIELD L0NERED'i!lFHTTHENPRINT9875,"N"!;HD=0;RETU 
RNELSEPRINT8876+2* I , 'N" ; i C (1 , 5) =0: RETURN 
230 IFHTTHENHI1=HLELSEI1N=C(I,7) 

Message subroutine. 

240 PRINT»107+64«l1H,NH)H»iiIFHTTHENRETURNELSEF0RK=lT03:F0RJ=lT02 
S!PRINT84&8,FtlJl;iNEXTJ,K:RETURN 

Change the strength display. 

250 IFHTTHENPRINTJ938,USINe'll'!HSi;RETURNELSEPRINT8939+2»I,C(I, 
4)) -.RETURN 

Clear the message display. 

240 F0RL=171T0747STEP64!PRINTJL,STRINB»(21,32)|!NEXTL!RETURN 




Put tin player In new position. 

270 PfiINT844IPY^3IPX,'.';!PDINTM4lltYmN1(,Pt;iRETUM 

Out-ef-arena? subroutine. Input: 
NX.NY is new (proposed) position. 
Output: AN Is owt-ef-arona flag. 

280 AN^O: IFBD (NX , NY) :-2TtiENAN>-l ! RETWNELSERETURN 

Into pit? subroutine. Input: NX.NY is 
new (proposed) position. Output: FG 
Is pit flag. 

290 F6=0 : I FBD ( NX , NY ) =- 1 THENF6=- 1 ; RETURNELSERETURN 



Subroutine to checit for stone. 
Input: PX,PY Is present location; 
NX.NY Is new location. Output: FG 
Is "passed stone" flag. 

300 FB=0;IFBD(NX,NY)>2 AND BD<NX,NY)=BD(PX,PY)THENFB»-1;RETURNEL 
SERETURN 

In-the-pit subroutine. Input: P$ is 
player; HT Is human's-turn flag. 
Output: NX,NY is new location, 
internal: J,K,FG 

310 FB=0!RN=RND(8)!0NRNB0T0320,330, 340,350,360,370,380,390 

320 NX=7!NY=5:B0T0400 

330 NX=8!NY=6iB0T0400 

340 NX=9!NY=7;6aT0400 

350 NX=8:NY:8iBOT0400 

360 NX=7:NY=9:60T0400 

370 NX=6:NY=:8:60TD400 

380 NX-S:NY=7:6DT0400 

390 NX=6iNY»6 

400 IFHX=NXANDHY=NYTHEN310 

410 FQRK=1T03!FORN=1T025:PRINTJ468,LEFT$(F«(N),1)+P«+RI8HT«(F$(N 

),1);;NEXTN,K 

420 F0RJ=lT0NC!PRINT844B,LEFT$IF$(J),l)+P»+RIBHT«(F«(J),l)iiIFCi 

J,0)=0THEN440 

430 IFC(J,1)=NXANDC(J,2)=NYTHEN310 continued on next page 
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continued from previous page 

440 NEUJ:IFHTTHEN4&0 

450 C(I,l)=N)(iC(I,2)=NYiC(I,4)'=C(I,4)-liBOSUB90:IFFBTHENC(l,0)=0 

:60SUB100;RETIiRNELSEGDSUB220;60SUB2S0:PRlNTi469,' ■|i60SUB270iRE 

TURN 

4&0 HX=N)(!HY=NYiHS=HS-l:IFHS<=OTHEN6000ELSE6DSUB220;60SUB250;PRI 

NTJ4i9," "):BOSUB270!RE™N 

Program begins. Declaration and 
intializatlon. Display title page while 
loading arrays. 

1000 RAND0HiCLEAR150iDEFINTA-ZiDIHC(8,8),BD(14,14),F(l25) 
1010 CLS!PRINTCHR$(23)i!PRINT»39B, "ARENA OF 0CT08':PRINT»718,'By 
AL J0HNST0N'':PR1NT8782, "APRIL 25, 1981" 
1020 FORY=OT014iFORX=OT014iBD(l(,Y)»-2!NEnil,Y 
1030 F0RY>tT0Si)(l>&-Yi]l2>8^Yi60SUB1040iNEnYiG0TDlOS0 
1040 F0RMlTDX2tBD(ll,YI>0)BDIll,14-Y)<0iNEniliRETURN 
lOSO F0RY>6T08iF0RX>lTD13iBD(ll,y)>0iNEnX,Y 
lOiO X>4iY»3!BDSUB1070;l(>9i608U61070:Y»10i60SUB1070!ll>4)BDSUB107 
OiBOTDlOeO 

1070 BDIl(,Y)»liBD(Ul,Y+l)»l!BD(X+l,Y)=3iBD(X,Y+l)=3iRETURN 
1080 X>3!Y=5:8DSUB1090il(:10:B0SUB1090:Y-8!80SUB1090iX'3!8DSUB109 
O16DTOIIOO 

1090 BDU,Y)>5;BD(X+l,YH)=S!BDIX^l,Y)M!BD(X,YM)=4iRETURN 
1100 F0RX-&T08iBDIX,5)=2!BD(X,9|:2iNEXTX 
1110 F0RY»4T08iF0RX-5T09iBD(X,Y)=2!NEXTX,Y 
1120 BD(7,6)>-liBDI&,7)=-l!BD(7,7)>-liBDI8,7)=-l!BD(7,8l=-t 
1130 FORI>lT025iFlll)«CHR((128*RND(i3))iCHR«(128^RNO(&3)HCHRtll 
28tRND(63))iNEXTI 

Ask for instructions, practice 
session. 

1140 CLS!PRINT8450,"D0 YOU KANT INSTRUCTIONS? 

1150 A$«INKEy«iIFA«="THEN1150ELSEIFA$="Y"THEN5000ELSEIFA«<>"N"T 

HENUSO 

lliO PRINT'DO YOU NANT A PRACTICE SESSION? 

1170 A$»INKEY$!lFA$»""THEN117OELSEIFA»="Y"THENDD=0ELSEIFA$='N"TH 

ENDD»-1ELSE1170 

1180 NC>0 

1190 NC=NC+l!lFDD=0ANDNC>2THENBD=-l:NC=l 

Set up the Octon array. 

1200 Y*OiI<0:60SUB1220:Y<:5:BOSUB1220!Y=7!60SUB1220!Y=8:GOSUB1220 

1210 YM!l-8!fiOSUB1220!Y=Ai60SUB1220iY=3iI=-3!BOSUB1220iBOT01230 

1220 F0RX=lT08iC(X,Y)=I:NEXTX!RETURN 

1230 F0RI=lT08!READX,Y!CII,l)=XiC(I,2)=yiNEXTI 

1240 DATA 5,1,9,13,13,5,1,9,9,1,5,13,13,9,1,5 

1250 FORI=lTONC:C(I,0)=-l:NEXTIiHT=0 

Display the arena and place the 
Octons. 

1240 CLSiF0RX>26T059:SET(X,2):SET(X,42)iMEXT 

1270 F0RY=15T029!SET(0,Y):SET(1,Y)!SET(84,Y):SET(85,Y)!NEXT 

1280 Y=14!F0RX=2TO24 STEP2!SET(X,Y):SET(X+l,Y):SET(84-X,Y>iSETI8 

5-X,Y):Y=Y-l:NEXT 

1290 Y=30iF0RX=2TO24 STEP2!SET(X,Y)!SET(X+l,y)!SET(84-X,Y):SET(8 

5-X,Y)!Y=Y+liNEXT 

1300 READX,Y;IFX«0THEN1320ELSEF0RI=XT0YSTEP3:PRINT81,'.";!NEXTI; 

6DTD1300 

1310 DATA 79,91,140,158,201,225,262,292,323,359,387,402,408,423, 

451,463,475,487,515,530,536,551,579,415,644,676,713,737,780,798, 

847,859,0,0 

1320 FORX=41T044iSET(X,19)!SET(X,25)iNEXT:FORX=39T040:SET(X,20)! 

SET(X+6,20):SET(X,24)!SET(X+6,24):NEXTiFORY=21T023!SET(37,Y)!SET 

(38,Y)!SET(47,Y)!SET(48,Y)iNEXT 



1330 A$>CHR$(130)tCHR$(129):PRINT8249,A«,-:PRINT8284,A«,':PRINT939 

4,At|:PRlNT341S,A$;:PRINT8586,A«;!PRINT}607,A*;:PRINT8717,A«-,iPR 

INTS732,A«; 

1340 A(>CHR$(160)*CHRt(144):PRINT}205,A»;iPRINT»220,A$;:PRINT}33 

0,A$;:PRINT}351,At|!PRINT»522,A$)!PRINT}S43,At;!PRINT8653,A»;iPR 

INT}668,A(; 

1350 PRINTJ834, "ARENA' i;PRINT»897, "OF OCTOS"; 

1360 PRINT}811,"H 12 3 4 5 6 7 8"; iPRINTSB66, "SHIELD: "pPRINTS 

928,"STRENBTH:"i 

1370 F0RI*lT0NCiPRINTi(64ICIl,2)+3»C(I,l)-l),l|iPRINT}874i2>I,'N 

")!PRINTJ940+2tI,"8")iNEXTI 

1380 PRINT»875,"N")!PRINTJ93fl,"10") 

Place the human at random about 
the firepit. 

1390 HT»-l!PX>7;PY-4!P|i"H"!HS=ll!BOSUB310!60SUB270iHD=OiHH=10iH 
L=0: IFDDTHEN3000ELSEPRINTJ98, "PRACTICE") !PRINTJ164, "COHBAT" ) 16OT 
03000 

Alternate HT between and -1. 

2000 HT=-(HTM)iIFHTTHEN3000 

Octon's turn. If Octon has been 
removed, go to the next one. 

2010 F0RI=lT0NC;PRINT8468,F«(I)iiIFC(I,0l-0THEN2620 

Define the player string. Display it 
and clear the message display. 
Number of moves starts at 0: human 
"chance of hit" set to -3. 

2020 P»=RIBHT«(STR«(I),1)!PRINT846,"0CT0N NUMBER "|P«i!60SUB260; 
C(I,7)=0:HC=-3 

If Octon is unshielded, show it. 

2030 IFC 1 1 , 5) THENG0SUB210ELSEB0SUB220 

Increment number of turns. If done, 
go to the next Octon. 

2040 C(I,7)=C(I,7)+1:IFCII,7)>C(I,4)THEN2420 

Find out which Octon is the 
weakest. 

2050 MK«-liFORL*lTONCiPRlNT8448,Ft(L)|iIFC(L,0)>0THEN2040ELSEIFC 
I L , 4 X C 1 1 , 4 ) THENHK<0; GOT02040ELSE2040 
2060 NEXTL 

Define CX and CY. Get direction and 
distance to human. 

2070 CX=CII,1)!CY=C(I,2):B0SUB30 

CL is the number of turns left. 

2080 CL=C(I,6)-C(I,7)+1 

Octon's logic. Depending on factors 

such as distance, number of moves 

remaining, which Octon Is weakest, 

and human strength, the Octon will 

either move, raise shield, or strike. 

2090 IFCL>2THEN2250 

2100 IFCL>1THEN2140 

2110 IFDSO1THEN2340 

2120 IFHS=10RLF>1THEN2130ELSE2340 

2130 IFNKTHEN2340ELSE2350 

2140 IFDSO1THEN2180 

2150 IFLF>1THEN2170 

2160 IFHS<=2THEN2350ELSE2380 
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2170 IFIIKTHEN2340ELSE2350 


Octon has passed a stone: There is 


2180 IFDS>2THEN2220 


a 50% chance of tripping and losing 


2190 IFLF>1THEN2210 


a turn. 


2200 IFHS<«1THEM2370ELSE23B0 




2210 IFIfKTHEN2380ELSE2370 


2570 IFRND(2I=1THEN6DSUB230:RETURNELSEI1(:H«*' AND TRIP';B0SUB230 


2220 IFLF>1THEM2240 


:B0SUB220:C(I,7)=C(I,7)+1:IFC(I,7)>C(I,6)THENRETURNEL8EI1«»"BETTI 


2230 IFC 1 1 , 4 ) >HS-&THEN2370ELSE2380 


N6 UP'i6G-64tC(I,2l+3IC(I,l)!PRINT}6B,CHR«(95);:8QSUB230iPRINT96 


2240 IFtlKTHEN23B0ELSE2370 


6, P«i! RETURN 


2250 IFDSO1THEN2310 




22&0 IFLF>1THEN2280 




2270 IFSBTHENSB=OiAN=-l!60T02380ELSE2350 


Octon swings. Set message and 
lower shield, if human is unshielded, 


2280 IFHKTHEN2300 


then hit; otherwise increase 


22?0 IFSBTHENSB'Oi 80T02360ELSE23S0 


human's "chance of hit" variable. 


2300 IFSBTHENSBcO: 60T023B0ELSE2350 




2310 IFLF>1THEN2330 


2580 H»="SKIN6':BQSUB220: IFN0THDTHEN2600ELSEHC=HC+4; IFH09THENHC 


2320 60T02370 


=9 


2330 IFIIKTHEN2380ELSE2370 






Find out If Octon has hit human. 


Octon raises shield. 




2340 B0SUB210!l1»="RftISE SHIELD" !SOSUB230:60T02040 


2590 IFRND(10)>HCTHENH»=«+" - DEFLECTED':BOSUB230!RETURN 


23S0 SB::-l!GOSUB2580i60T02040 


hluman hit; add to the message and 


2360 6DSUB2460 


print it. Decrement human strength. 


2370 Pl(»C(I,l)iPY=C(I,2)!B0SUB120:B0SUB2390!60T02040 


and show it. 


2380 IFANTHENAN=0: 60SUB2440! B0T02370ELSENV=HV-2t (I1V-5) ; RT=-1 ! 60T 




02370 


2600 111=11$+" AND HIT'iG0SUB230iHS:HS-l!lFHS>0THENPRINT9938,HS;:R 
ETURN 


Octon moves. Set message, 


depending on retreat flag. 


The human has lost all strength 


2390 l1$="ADVANCEMFRTTHENh«='RETREAT':RT«0 


points, and loses. Show the human 




removed, and go to the closing 




statements. 


Checic for "out of arena." 




2400 6DSUB280:IFANTHENI1t=H$^' ti HIT IIALL'!G0SUB230:RETURN 


2610 PRINTJ64tHY+3IHX,"."|!PRINT993B,HSi!F0RN=lT04!F0RJ=lT025:PR 




INTa46S,F((JI;:NEXTJ,Ni6DT06000 


Cfieck for "In pit." 


Go on to the next Octoh's turn. If 




It's the last one, switch HT and go 


2410 S0SUB290!IFFSTHENH»=I1$+" INTO PIT":60SUB230:PRINTJ64IPY+3»P 


to the human's turn. 


X , ■ . ■ ; i B0SUB310: IFC ( 1 , 4I< >0THENRETURNELSEPRINT864tPY+3>P)t , ' . ' ; ! C 




(I,7)=B:RETURN 


2620 F0RN=lT05:F0RJ=lT025iPRINTS46B,F«(J);iNEXTJ,N:BDSUB260;NEXT 
l!G0T02000 


Make sure tliat the Octon Isn't 




moving Into a space occupied by 
the human or another Octon. 


Human's turn. Show heading, clear 
the message display, define player 




string, and set number of turns left 


2420 IFHX=NXANDHY=NYTHEN60SUB2440: G0T02390 


too. 


2430 F0RJ=lT0NC!PRINT844B,F«IJ)|!lFCIv!,0)=0THEN2450 




2440 IFC ( J , 1 ) °NXANDC ( J , 2) =NYTHEN60SUB2460:6DTD2390 


3000 PRINTa46,'HUHAN'B TURN "i:G0SUB260!P$='H'!HL=0 


2450 NEXTJiG0T02560 






If human Is defended, show It. 


If there is an obstruction, go around 




it. 


3010 IFHDTHENG0SUB210ELSEG0SUB220 


2460 RN=RND(2)!RN=RN-2!0NI1VG0T02470,24B0, 2490, 2500,, 2510,2520, 25 




30,2540 


Set ail Octon "chance of hit" 


2470 IFRNTHENI1V=2:80T02550ELSEI1V=4;GOT02550 


variables to -3. 


2480 I FRNTHENNV* 1 ; 60T02550ELSEHV»3 1 60T02550 




2490 1FRNTHENI1V=2:BOT02550ELSEI1V=6!BOT02550 


3020 F0RI=lT0NC;PRINTJ468,F$(I)i!C(l,3)=-3:NEXTI 


2500 1FRNTHEHKV=1 1 60T02550ELSEHV»7i G0T02550 


Increment number of turns; If done, 


2510 IFRNTH£NHV=3:eOT02550ELS£HV=9j60T02550 


switch HT and let Octons take over. 


2520 IFRNTHENHV-4i60T025SOELSENV*6i60T02550 




2530 IFRNTHENHV=7: G0T02550ELSENV=9! BOT02550 


3030 HL=HL+1:IFHL>HI1THEN2000 


2540 IFRNTHENNV=6!60T02550ELSEI1V«8;BOT02550 




2550 G0SUB120:RETURN 






Input routine. (This also keeps the 




fire going.) 


If there are no obstructions, show 


3040 1=26 


the Octon and check for a stone. 


3050 1=1-1 !IFI=0THEN3040 




3060 A«=INKEY«!PRINTa46B,F«(I)s;IFA«=""THEN3050 


2560 BOSUB270iC(I,l)=NX;C(I,2)"NY:60SUB300!lFNOTFBTHENBOSUB230:R 




ETURN 


continued on next page 
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continued from previous page 

If A$ is a number, or one of tfie 
alternate movement keys, go to the 
move subroutine. 

3070 IFA«>='I'ANDft$<='9'THEN3I90 

3075 IFAt='U'THENft$='7":B0T03190 ELSEIFfl$=M'THENA»='8'!eOTD3190 
ELSEIFA«='0"THENA«="9":G0T03190 ELSEIFA«='J'THENA»="V!60T03190 

3076 IFA»="L'THENA«='6"i60T03190 ELSEIFA»='H"THENA«=M"iB0TD3190 
ELSE1FA$=",'THENA«="2'!60T03190 ELSEIFA«='.'THENA»="3':S0T03190 

If A$ Is not one of tlie otiier ttiree 
valid Iceys, return. 

3080 IFA«<>"S"ANDA«>"R'ANDA«>"P'THEN3050 

The human raises his shield. 

3090 IFA««"R"THENNI»"RAISE SHIELD':BOSUB230:60SUB210!60TD3030 

The human passes. 

3100 IFA$="P'THENM="PASS'iG0SUB23O:FORN=lTO4:F0RJ=lT025;PRINTM 



The human swings. Check to see 
which Octon is next to him. 

3110 M="S*IINB":6OSUB220:F0RI=lTDNC!PRINTJ4i8,F$II+8l!;IFC(I,0> = 
0THEN3140 

K and L will be 1 If Octon Is nearby. 

3120 K=ABS(C(l,ll-HX)iL=ABSIC(I,2)-H¥) 

Set Octon's "I'm hit" variable If so. 

3130 IFK<=1ANDL<=1THENC(I,8)=-1ELSEC(I,8)=0 

Look again to see If any Octons 
were hit. 

3140 NEXTI:F0RI=1T0NC:PRINT94&8,F«(I);:IFC(1,0I=00RC(1,8I=0THEN3 
180 

Increase Octon's chance of getting 
hit. 

3150 C(I,3)=C(I,3)+4!lFCII,3)>9THENC(I,3)=9 

Octon will be hit If undefended, or if 
the random number comes up. If he 
loses all his strength points, remove 
him. 

3140 IFC(I,5)=00RRND(10)<C(I,3)THENN»=N$t" AND HIT";GOSUB230)C(I 
,4)=C(I,4)-l!HT=0iBOSUB250!HT»-l!BOSUB9O!lFF6THENC(I,0)«OiB0SUBl 
00iPRINTJ64»C(I,2)+3tC(I,l),".'i!B0T03030!ELSE3030 

The strike is deflected; show It and 
return: 

3170 ««=««+" - DEFLECTED':B0SUB230:BQT03030 

The human has swung his sword 
and there was no one there. 

3180 NE)(TI;N$>l1(i' AND NISSED'i6DSUB230iBDT03030 

The human moves. If A$ was a 5, go 
back and try again. 

3190 IFA«='5"THEN3040ELSEI1«="HOVE' 

Define the variable IVIV. Go set the 
new X and Y positions, and check 
for "out of arena." 



3200 NV=VAL(A$):Pl(xHl(iPV=HYi60SUB120i80SU6280 

3210 IFANTHENHt-Ht^' AND HIT NALL'i60SUB230iBOT03030 

Loop to see If there Is an Octon In 
the way. If so, you are pushing him; 
If not, next Octon. 

3220 F0RI»lT0NC:PRINT84i8,F»(I)iiIFCII,0)=0THEN3240 
3230 I FC (1 , 1 ) =mm ( 1 , 2) =NYTHEN3280 
3240 NEHI 

Check for firepit; If yes, go to the pit 
subroutine. 

3250 1FBD(N](,NY)=-1THENH«=N$+' INTO PIT!'iB0SUB230iPRINTJi4»P¥+3 
«PX,".'|:BOSUB310!BQT03030 

Place the human and check to see if 
there was a stone. If not, or If so 
and luck Is In your favor, then no 
problem. Otherwise lose the turn. 

32&0 60SUB270:Hl(=NX!HY=NY;BOSUB300iIFNOTF60R(FGANDRND(2l>l)THEN6 

0SUB230iB0T03030 

3270 I1«=N$+' AND TRlPS':60SUB220i60SUB230!HL>HL+l:lFHL>HI1THEN200 

0ELSEBB=&4tHYi3tHX!PRINTi6B,CHR$l95);il1f='BETTINB UP'i60SUB230iF 

0RK=lTQ3!F0RH=lT025:PRINT8468,F»(N));NEXTH,KiPRINTJBB,"H'i:B0T03 

030 

Human pushes Octon. Save 

human's present location, then set 

the location to which the Octon is 

being pushed. 

3280 l(l=NX!Yl=NYiPX=NXiPY=NY!B0SUB120 

Define the message and check to 
see If the Octon's pushed position 
Is out of the arena. If so, Octon's 
chance of hit increases. 

3290 H<="PUSH"!BGSUB280!lFANTHENC(I,3)=C(I,3)+4:IFC(I,3)>9THENC( 
I,3)>=9 

Also, show the message and go to 
the next turn. 

3300 IFANTHENH$>N«^' OCTON TO NALL'iB0SUB230:B0TD3030 

Check to see If Octon's pushed 
position is already occupied. 

3310 FGRJ=lT0NC;PRINT8448,F«(J)|iIFC(J,0)=0THEN3330 

3320 IFC(J,l)=N)!ANDC(J,2)=NYTHENC(I,3)=C(l,3)+4:G0SUB230iIFC(I,3 
) >9THENC 11,3) =9: B0TO3030ELSE3O30 

Move the human to his new 
position. 

3330 NEXTJ:PRINTi64tHY+3tHX,'.')iPRINTi&4tYU3IXl,'H'-,!HX>XliHY> 
Yl 

Check to see If Octon has been 
pushed Into firepit; place him in his 
position. 

3340 IFBD(NX,NY)»-1THENN«»N«+" INTO FIREPIT'iB0SUB230:HT»0:P«=RI 

BHT»(STRI(I),l)iB0SUB310!PRINTJ64«Yl+3ni,"H"i:HT=-liP»='H"!lFHD 

THENBOSUB210iBOT03030ELSE8DT03030 

3350 PRINTai64INY^3tNXI,RI6HT$(STR«II),l);:C(I,l)=NX:C(I,2)=NYi6 

GSUB300 

Check to see If Octon has been 
pushed across stone. 

3360 IFFGTHENN«=l1$i' ACROSS STONE ■iB0SUB230iB0TO303OELSEBDSUB230 
!60T03030 

Human has won. 
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4000 6«="':IFNC>1THEN6$='S" 

4010 CLSiPRINT8325,"C0N6RATULATI0NSI YOU HAVE SUCCEEDED IN FI6HT 

INS'NC'OCTON 

IIARRIOR"B$".'!PRIHT 

4020 IFDDTHEN4080ELSEIFNC=2THEN4060 

4030 PRINT" 

YOU HAVE COHPLETED THE FIRST HALF OF TRAINING," 

4040 PRINT" 

TO CONTINUE TRAINING, PRESS <ENTER>'; 

4050 INPUTAiRESTORE:SOT01190 

4060 PRINT" 

THIS IS THE END OF YOUR TRAININB. YOU ARE NDM READY TO 
START THE CONTEST. ' 
4070 PRINT" 

PRESS <ENTER> TO BE6IN"i!lNPUTAiREST0RE!B0T01190 
4080 IFNC=8THEN4110ELSEB»='ST"!lFNC=2THEN6«="ND"ELSEIFNC=3THENB$ 
="RD"ELSEIFNC>3THENB»="TH" 

4090 PRINT"YQU HAVE COHPLETED THE"STR«(NC);B$" CONTEST IN THE OC 
TON CHALLENBE. 

YOU HAY REST IF YOU KISH, THEN PRESS ANY KEY TO CONTINUE," 
4100 A$=INKEY$:IFA«=""THEN4100ELSENC=NC+1:RESTORE:BOT01200 
4110 CLS:PRINTCHR«(23)!PRINT8320,'Y0U HAVE NON THE OCTON CHALLEN 
BE' 

4120 PRINT" 

BUT RENEMBER... IF YOU SHON ANY 
SIGN OF CDMARDICE (EVEN IF YOU 
TYPE 'RUN') YOU NILL BE 
CAPTURED ONCE AGAIN... ":PRINTiEND 
4130 B0T04130 

Instructions. 

5000 CLSiPRINTa20, "ARENA OF OCTOS" 
5010 PRINT" 

YOUR STAR CRUISER HAS BEEN CAPTURED NHILE TRAVELINB 
THROUGH SPACE CLAIMED BY THE OCTON DYNASTY, AFTER BONE 
DELIBERATION, THE COUNCIL OF EIGHT HAS GRANTED YOU THE CHANCE 
TO EARN YOUR FREEDOM BY ACCEPTING THE 'OCTON CHALLENGE'," 
5020 PRINT" 

YOU HILL BE PLACED IN AN ARENA, NITH A SKORD AND A 
SHIELD. YOU NILL THEN ENGAGE ONE OCTON IN COHBAT. IF YOU 
SURVIVE, YOU NILL THEN FIGHT TNO, THEN THREE.,,, UNTIL THERE 
ARE EIGHT OCTONS IN THE ARENA." 
5030 PRINT" 

THE OCTONS HAVE EIGHT DOVES, AND A 'STRENGTH' FACTOR 
OF EIBHT. THIS HEANS THAT AN OCTON CAN RECEIVE EIGHT DIRECT 
BLONS BEFORE HE IS REMOVED FRON THE ARENA, " 
5040 PRINT8976, "PRESS <ENTER> TO CONTINUE"} 
5050 A»=INKEY«!lFA«=""THEN5050 
5060 CLSi PRINT" 

THE ARENA OF OCTOS IS AN EIGHT-SIDED STRUCTURE. THERE 
ARE EIGHT STONES PLACED IN THE ARENA, TO TRIP THE CONTESTANTS, 
IN THE CENTER OF THE ARENA IS ANOTHER HAZARD, THE FIRE PIT." 
5070 PRINT" 

THE COUNCIL OF EIBHT HAS DETERMINED THAT HUMANS ARE 
TO BE ALLONED TEN MOVES, AND TEN STRENGTH POINTS SINCE HUMANS 
ARE DECIMAL CREATURES." 
5080 PRINT" 

IF VOU CROSS A STONE DURING THE CONTEST, YOU HAVE A 
SOX CHANCE OF TRIPPING AND LOSING A TURN. IF YOU ENTER THE 
FIREPIT, YOU NILL LOSE ONE STRENGTH POINT, AND YOU KILL LONER 
YOUR SHIELD AND BLINDLY ESCAPE IN ANY DIRECTION." 
5090 PRINTJ976, "PRESS <ENTER> TO CONTINUE") 
5100 A»=INKEY$iIFA$=""THEN5100 

5110 CLS:PRINTJ47,"7'i:PRINTJ55,"8"i!PRINTJ63,"9"i:PRINT8175,"4" 
i:PRINT8191,"6"i!PRINT8303,"l"iiPRINT8311,"2"|;PRINT8319,"3") 
5120 F0R)(=9BT0123iSET(l(,7)!NEn;F0RY=3T010!SET(110,Y)!SET(lll,Y) 
:NEniY=2:F0Rl(=98T0106STEP2iSET(ll,Y)iSETIUl,Y)!SET(U16,Y+6)i5E 
T()(+17,Y+6):Y=Y+l:NEn 



5130 Y=12:FORX=98T0106STEP2:SET()(,Y)!SET(I(+1,Y)!SET()(+16,Y-6);SE 

T(l(+17,Y-6):Y=Y-l!NEU 

5140 PRINT80," YOU MOVE IN THE ARENA BY"i!PRINT864,"PRESSI 

NG KEYS 1-9 OR THE LETTER KEYS") iPRINT8128, "INDICATED BY THE CHA 

RT, TO MOVE IN"i 

5150 PRINT8192,"0NE OF THE EIGHT DIFFERENT")iPRINT8256,"DIRECTI0 

NS,"| 

5160 PRINT8384," YOUR ONLY OTHER COMMANDS ARE: 

<S> SNING YOUR SHORD 

<R> RAISE YOUR SHIELD 

<P> PASS lAND FORFEIT REMAINING MOVES)" 

5170 PRINT" 

IF AN OCTON HAS HIS SHIELD RAISED, YOUR FIRST SNING HAS 
A 101 CHANCE OF CONNECTING. THE SECOND SNING HAS A SOX CHANCE, 
AND AFTER THAT THERE IS A 90X CHANCE OF A HIT." 
5180 PRINT3976, "PRESS <ENTER> TO CONTINUE"; 
5190 A«=INKEY»:IFA«=""THEN5190 
5200 CLS:PR1NT8256," 

THE COUNCIL OF EIBHT HAS BRANTED YOU A 'PRACTICE' 
SESSION, TO FAMILIARIZE YOU NITH THE ARENA."iPRlNTiB0T01160 

Human has lost. 

6000 B«=""iIFNC>lTHENB$»"S' 

6010 CLS:PRINT8325,"Y0U HAVE LOST IN YOUR BATTLE ASAINST"NC"OCTO 

N NARRIOR"B$"."iIFDDTHENPRINT" 

YOU NILL NON REMAIN AN OCTON SLAVE, AND BE FORCED TO NORK AT 

THE OCTAL PALACE FOR SCRAPS OF FOOD.'iPRINT" 

YOU NILL HAVE TO TRY AGAIN NHEN YOU THINK YOU ARE "sE 

ND 

6020 PRINT" 

SINCE THIS IS A PRACTICE SESSION, YOU ARE ALLOMED TO TRY AGAIN." 

6030 PRINT" 

PRESS <ENTER> TO CONTINUE PRACTICE"; :INPUTA:REST0REiG0T01200 Q 



WHAT MAKES ROBOTWAR " UNIQUE? 




RobotWar™ is not a manual dexterity game. 
You write a special Battle Program for your 
own robots in a true battle of wits with the 
demo robots or robots designed by other 
combatants. You program the robot's 

• velocity 

• laser cannon aim 

• radar direction 

• battlefield positioning 

You are responsible for your robot's success 
or ultimate destruction. The basics of Battle 
Language are easily learned. Yet, like chess, 
RobotWar™ may take a lifetime to master. 

MLSE!!::!:!: 



330 N CHARLES STREET 
BALTIMORE, MD 21201 
.(301)659-7212 



jr nearHV MOW □■ 



SoflSide October 1981 



67 



Now for theTRS-80" Models I & 




• DOUBLE Sides & DOUBLE Density support. 
•■'AUTOMATIC Density recognition. 

• 35, 40, n , 80 and any other track counts are supported. 

• All available drive stepping rates are supported. 

• Hard Drive support, can be HANDLED AS A SINGLE DRIVE. 

• Hard drive partitioning, one hard drive can act as up to 

six drives. 

• Intermix 5", 8" and Hard drives, up to a total of 8 drives. 

• Compatible with the Model I Radio Shack Expansion Interface. 

• Upward compatible with TRSDOS (2.3 & 1.3 as documented). 

• Fully supports Microsoft language products, without 

modification. 

• Complete media compatibility Model I to Model III and Model III 

to Model I. 

• Full support for LOBO's LX-80 interface. 

• Full support for PERCOM's DOUBLER II. 

• Complete documentation (well over 250 pages). 

• Complete technical information. 

• A TOLL-FREE 800 number for customer service. 

• An LDOS users bulletin board on MicroNET. 

• A Quarterly LDOS users magazine (The LDOS QUARTERLY). 

• A liberal update policy. 

• An enhanced BASIC (LBASIC) including: 

> Upward compatible with Microsoft Basic. 

> High speed LOAD and SAVE. 

> Run multiple programs with common variables. 

> BLOCKED (variable length) files are supported. 

> DOS commands may be executed from LBASIC. 

> Built in string array SORT. 

* Specific hardware is requ 



The Ultimate In 
Operating Systems 
For Model I & III 



Only $ 



00 



Ik 

Li — 



OGICAL 
SYSTEMS 
INC, 



169 

Version 5.1 



Model I #25-2650010 
Model III #27-2650010 



> Single stepper for debugging. 

> Several new statements and file modes. 

• A compiled JOB CONTROL LANGUAGE (JCL). 

•An Extended Debugging and Monitor program (with diskaccess). 

• CMDFILE for movement of disk and/or tape system (/CMD) files. 

• Device independent operation. 

• Full LINKing, ROUTEing, FILTERingandSETtingare supported. 

• MiniDOS feature for constant access to certain DOS commands. 

• Sophisticated communications software included. 

• Wildcard characters and partial Filespecs are supported. 

• Each file is DATED, showing when it was last modified. 

• Backup: Mirror, by Class, if Modified, by Date, by Extension, etc. 

• Selectable PURGE for fast disk "cleanup" of unwanted files. 

• Print formatter, for control of printer output. 

• Built in printer SPOOLER, to both disk and memory. 

• Joblog to record all system operations with time stamps. 

• UPPER and lower case support, throughout the system. 

• Blinking cursor with selectable cursor character. 

• 128 character TYPE AHEAD buffering for keyboard input. 
•Assign strings to individual keys with Key Stroke Multiply (KSM). 

• SUPER FAST operation with the SYSRES feature. 

• Extensive user control and system feedback. 

• Complete transportability of software among all Z-80 LDOS 

systems through the use of the LDOS high memory supervisory 
call system. 

• Dealers to serve users Nationwide and in the Common Market. 

• The only DOS with a limited ONE YEAR WARRANTY! 

• Enjoy a professional operating system on YOUR TRS-80! 

red to use these features. 

• Model I LDOS provided on 35 track single density media. 

" Model III LDOS provided on 40 track double density media. 
" Prices & Specifications are subject to change without notice. 




T5€;HfiRDSID€ 



6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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DEMAND THE MOST 
FOR YOUR 
WORD PROCESSING 
DOLLAR? 

THEN MOVE UP 
TO PROSOFT'S 
NewScript . . . 



Easy-to-use Full Screen Editing 
Typeahead — never loses keystrokes 
Headings, Page Numbering, Centering 
Form letters. Big Documents 
Global search and change 
Double-Width, Underlining 
Sub-scripts, Super-scripts 
Table of Contents, Indexing 
Proportional font right-margin 
justification on 737, 739, L.P. IV, D.VV. II 
All 12 MX-80 fonts + underlining 

* Italics on GRAFTRAX MX-80 
Supports Diablo, Microline, Anadex 
160 pages of excellent documentation 
includes "EZEDIT', "EZSCRIPT", se 
study tutorial, and hundreds of examples 

* Runs under TRSDOS, NEWDOS, NEWDOS/80 
LDOS, DOSPLUS. 

Requires 48K TRS-80 with one disk drive. 
Specify: Model I or Model III. 



NewScript (Mod-t) #25-269001 D $99.95 

Mailing Labels Option #25-2690020 $14.95 

NewScript (Mod-Ill) #27-269001 D $99.95 

Mailing Labels Option #27-2690020 $14.95 
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CONTEST RESULTS 



The SoftSide "BASICally Speaking" Programming Contest 



In the April issue of SoftSide, we an- 
nounced "Tlie Most Unusual Pro- 
gramming Contest You've Ever Heard 
Of." The point of the contest was to 
write one or more lines of proper 
BASIC code which also made sense as 
Enghsh. Several examples were given, 
including the stimulating one-liner, 

IF YOU = GOOD THEN YOU = 
WINNER 

The race was on to submit the most 
creative BASIC/English code in Soft- 
Side history! 

After several weeks of fretful an- 
ticipation, we received our first contest 
entry. Close upon the heels of that one 
(a few weeks later) we received yet 
another. A third poured in only a few 
days after that. On one memorable 
day, two entries arrived— one of them 
from Holland, which proved to be 
almost too much excitement for one of 
our editors of Dutch ancestry. In the 
end, almost ten people (well, seven, to 
be exact) deluged us with their unusual 
entries, the last arriving on the very eve 
of the contest's official closing. 

Needless to say, we were swamped 
with work, processing all the entries. 
That's why this report on the results 
was delayed until October. 

But here, at last, for all those who 
have been waiting with bated breath 
(all seven of you) for the announce- 
ment of the winners, is the final deci- 
sion of the judges. Having received no 
worthwhile offers of bribes along with 
the contest entries, we hereby declare 
that nobody won first prize. (Too bad 
— that "Round the World in 80 Days" 
luxury cruise for two would have given 
us some good pubHcity.) However, we 
would like to give credit to all those 
who sent entries, and we feel that three 
of them deserve honorable mention. 

The "Most Philosophical" award 
goes to Terry David Clark of Colum- 
bus, Indiana. Terry's entry is written 
for S-80 Disk BASIC: 



10 REMEMBER TO MAINTAIN A 

20 CLEAR &HEAD 

30 REMEMBER ALSO THAT WE 

HAVE A PRECIOUS RIGHT TO 

40 PRINT "THE WORD": 

REMEMBER WHEN YOU WERE 

50 AWAKENED = &HAD: 

REMEMBERED WHAT THE WISE 

MEN TELL US. 

60 WISDOM = AWAKEN: 

BRAIN = WISDOM:SURVIVE = 



WISDOM: YOU = BRAIN 

70 REMEMBER THOUGH THAT 

WE MUST ALSO CONTINUE THE 

QUEST 

80 FOR QUESTING = THEWILL 

TO SURVIVE 

90 IF WISDOM > STRENGTH 

THEN PRINT "IS GREATER 

THAN THE SWORD." 

100 REMEMBER ALSO TO ASK 

THE 

110 NEXT QUESTION 

120 REMEMBER IT? HOW CAN I 

SURVIVE? 

130 IF (SURVIVE = WISDOM) AND 

(WISDOM = BRAINS) AND 

(BRAIN = YOU) THEN READ 

BOOKS 

140 FOR YOU = THEWILL TO 

SURVIVE -I- BRAINS 

150 IF YOU = >WISDOM THEN 

PRINT BOOKS 

160 NEXT YOU: REMEMBER THE 

PAST, BECAUSE THE 

170 DATA "WE LEARN FROM 

THE PAST AND APPLY TO THE 

PRESENT" 

180 REMEMBER! CAN SAVE US 

FROM THE 

190 END 

The award for the "Best One- 
Liner" goes to Ron Kohavi and 
Moshe Nissim of New York City, for 
this graphic Applesoft entry: 

10 IF YOU = ARTIST THEN 
DRAW ME AT LAST, PLEASE 

And finally, the "Most Romantic" 
award goes to David Whitney of 
Oklahoma City, Oklahoma, for this 
S-80 contribution: 

10 MYHEARTSTRUEFEELINGS = 

"I LOVE YOU" 

20 PRINT 

MYHEARTSTRUEFEELINGS 

OVER AND OVERAGAIN 

30 FOR I = HAVE TO 

TELLYOUILOVEYOU 

40 ILOVE = (YOU AND NOOTHER) 

50 IF U = LOVEME THEN 

MARRY = ME ELSE ILLBE = SAD 

60 FOR MARRIAGE = NOW TO 

DEATHDOUSPART 

We enjoyed and appreciated the 
other entries as well, which were 
submitted by the following people: 

Elrhea Bigham, Van Wert, Ohio 

David Horwat, Morris Plains, New 

Jersey 

Bill Katz, Tokyo, Japan 



Huub Sanders, the Netherlands 



rj 



K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Last summer SoftSide began in- 
viting its readers to submit "One 
Liners" — self-contained, single-line 
programs for the S-80, Apple, or 
Atari which would provide a con- 
tinuously changing graphics display. 
The response has been excellent, and 
we're still looking for more submis- 
sions. 

Now we have a new challenge for 
you as well: "K-Byters". A K-Byter 
is a BASIC program which fits into 
IK (1024) bytes of program memory. 
There aren't any restrictions on the 
nature of the program, other than its 
size. It can be a graphics display, a 
game, a mini-adventure, or anything 
your imagination and programming 
skills can create. 

Note that the program does not 
have to RUN in IK of memory; it can 
use as much RAM for arrays, strings, 
graphics mapping, etc., as you need. 
We'd prefer that it be able to run in a 
16K system, but this is not an ab- 
solute limit. 

Here, then, are the official rules: 

1 . The program must be written for 
the Apple, S-80, or Atari, entirely in 
BASIC (although it may create and 
call Machine Language routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be submitted 
on tape or disk, accompanied by your 
name, address, phone number, and a 
brief written description of its opera- 
tion. 

4. The tape or disk will be returned 
only if accompanied by a self- 
addressed envelope with adequate 
postage AFFIXED (do not send 
money). 

5. Winners will have their pro- 
grams published in SoftSide and will 
receive a $10 software certificate for 
their programming excellence! 

Send submissions to: 



K-Byters, c/o SoftSide 

6 South Street 
Milford, NH 03055 



© 
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K-BYTERS 



MISSILE COMMAND 

An Applesoft K-Byter by Mike 
Watson, Beaverton, OR 

In this HIRES graphics game the ob- 
ject is to destroy as many of the in- 
coming ICBMs as you can. You have 
three bases from which to fire, each 
with a stoci<pile of ten ABMs. A base 
which is hit directly by an incoming 
missile is destroyed. Each ICBM that 
you destroy adds 50 points to your 
score: each one that gets past you 
deducts 100. Use the game paddles to 
position the crosshairs on the target, 
and press a number key (1, 2, or 3) to 
fire from the appropriate base. 

3 TEXT 

5 HOHE ! VTAB 12: PRINT TAB I 13 

l-NISSLE COHHAND': 50SUB SOO 
Oi DEF FN OIK) = VAL ( CHR* 

it - 12B));V = 21;A = 5:B = 
5 

6 HBR : HCOLOR= 1; FOR I = 1 TO 

3:B(I) = 10; HPLOT 0,1 + 156 
TO 279,1 + 156; NEXT ; SCALE= 
2: ROT» Oi HCOLOR= 3i HPLOT 
0,156 TO S,150 TO 16,156: HPLOT 
132,156 TO 140,150 TO 14B,15 
6; HPLOT 279,156 TO 271,150 TO 
263,156 



7 



110 
130 



140 



FOR I = 1 TO 3; READ BX(I),T(I 
)i NEXT 

60SU6 200: G05UB 540 
n = B(l) + B(2) + B(3)iC = C + 
INT ( RND (1) 1 3) - 1; IF 
NOT M THEN TEXT : HOflE : HTAB 
17: FLASH : PRINT "THE END"; 
NORNAL : END 
GOTO 110 

200 X = PEEK ( - 16384); POKE - 
16368,0; IF X > 176 THEN IF 
B( FN 0(X)) AND FN 0(X) < 4 
THEN 420 
HCOLOR= 0: BOSUB 610:; A = ( PDL 

(0) / 255) t 273 + 3;B = ( PDL 

(1) / 255) t 156 + 3; HCOLOR= 
3: GQSUB 610; RETURN 
HPLOT BX( FN 0(X)),150 TO A, 
Bi HCOLOR= 0; HPLOT BX( FN 
(X)),150 TO A,B; GOSUB 730: VTAB 
V; HTAB T( FN 0(X)): PRINT B 
( FN 0(X)); RETURN 
IF Q M56 THEN BOSUB 630 

« fl + 1: HPLOT C,B: RETURN 



210 



420 



540 
560 



570 6DSUB 680 

580 E = E + 50; GOSUB 6000: VTAB 
1: XDRAH 1 AT A,B; PRINT ": 



DRAW 1 AT A,B; RETURN 
610 HPLOT A - 3, B TO A + 3,B; HPLOT 

A,B + 3 TO A,B - 3: RETURN 
630 IF B = 156 THEN E = E - 100; 

HCOLOR= 3: DRAM 1 AT C,Q: GOSUB 

6000 
650 FOR I = 1 TO 3: IF C > BX(l) 
- 8 AND C < BX(I) + 8 THEN 

BID = 
660 NEXT 
680 C - INT ( RND (1) t 260) * 8 

;Q = 0: RETURN 
730 B( FN 0(X)) ' B( FN 0(X)) - 1 

: IF ABS (A - C) < 2 AND ABS 

(B - fi) < 2 THEN 570 
735 XDRAN 1 AT A,B; FOR I = 1 TO 

50: NEXT ; DRAH 1 AT A,B: RETURN 
5000 FOR I = 21000 TO 21037: READ 

A; POKE I, A; NEXT : DATA 
1,0,4,0,73,60,56,56,30,247, 

54,46,46,53,101,12,13,24,31, 

15,24,247,11,24,12,24,136,15 

8,18,101,184,227,107,8,15,24 

,4,0,8,2,140,20,271,38 
5010 POKE 232,8: POKE 233,82: GOTO 

680 
6000 VTAB 22; PRINT "SCORE: "E: RETURN 



STELLAR INCURSION 



An S-80 K-Byter by Ken Huffman, Westerville, 
OH 

Your mission is to rid the galaxy of the menac- 
ing Cachexias, whose ships are shaped like X's. 
Your vessel, the infamous U.S.S. Antaeus, is the 
only mobile ship in the area. The lowly enemy has 
no defense against your phaser blasts, due to the 
shoddy construction of their ships. The vile 
creatures do not have the technology to repair 
their warships, so they haphazardly produce addi- 
tional contraptions. 

Your warship can carry only twenty phasers, 
but you can replenish them when you dock at a 
cross-shaped starbase. To do this you move your 
ship next to the starbase and point your phaser 
tube at it without firing. To fire your phasers, use 
the space bar. Shooting at stars is not recommend- 
ed because phasers will deflect. Use the arrows to 
maneuver your ship, and the shift keys to rotate 
the phaser tube. You may select any of ten levels 
of play, to challenge the most proficient player. 



5 CLS:CLEAR200:DEFINTD-Z!DEFSTRA-C:INPyT"l=HARD - 10=EflSY"|QiDII1 

P (99) , A (23) : A=" ' V I EEEBEBQEB ! E ! REREVEVRRVRUVBVURVRRVFRVVBVVRFVVRV 

VUVUVUVVRWFVWFVVVF":B=" . "!FQR)(=lTQ69iB=BtCHR$(ASC(t11D«(A,)()> 

«3-67):NEn!T=RND(8)-l 

10 CLS!D=M400!E=140!K=1536l!F0RX=0T023!A(X)=«ID«(B,)(«3tl,3)!NE)( 

T:F0R)(=0T07:READR(n,S()()!NEn!DATA2,3,4,-61,l,-i<,3,-67,2,-3,4, 

61,1,64, 3, 47:F0R)(=0TOM:F0RY=0TO20!lFRND(15)=lH=5EL5EIFRND(E)<Q+ 

125H=0ELSEH=6iG=6+l 

15 PRINTA(H)i;NEU:PRINT:NEU:CI=8«2:F0RK=lT04 

20 N=RND(956)!lFPEEK(M+K)=46PRINT}t1,A(7)i!NEnELSE20 

25 L=20:PRINTJ984, "PHASERS LEFTi'L; 

30 PRINTil1,A(T+SGN(L)t8+8);;IFRND(Q) = lN=RND(95i)!lFPEEK(NtK)=46P 

RiNTJN,A(4);!S=Gtl 

35 IFPEEK(D)<1280RL=0G0T070ELSEL=L-l:PRINT3997,Li:P=n:S=T:J=0 

40 P=P+S(S)iP{J)=P!H=PEEK(PtK-l)!l=PEEK(PtK)!lFI=46PRINTJP,A(R(S 

))|iJ=J+l!60T040 

45 IFI=EANDH=32S=(S+4tRND(7))AND7!G0T040 

50 IFI=EANDH=179J=J+1:G=6-1;IFG=0C="V0U HAVE SUCCEEDED."; 2=7 

55 IFP=fl:C="YQU ND LONGER EKIST.'iZ=7;J=J+l 

60 IFH=EANDI=191C="YGU HIT YOUR BASE."!Z=7!J=J+1 

65 IFJF0RH=0T0J-l;PRINTJP(H),fl(0)j!NEn!lF2CLS!PRINTJ470,C:END 

70 R=PEEK(D):I=l1:IFRAND8I=I-64 

75 IFRAND16I=I+64 

80 IFRAND32I=I-3 

85 IFRAND64I=U3 

90 IFPEEK(I+K)=46PRIMT3N,A(0);!M=I 

95 IFPEEK(D+64)T=(T+1)AND7 

100 IFPEEK(K+B+S(T))=19160TB25ELSE30 



o 
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Within the 

following is a true history7 

and not an allegorical fantasy 

designed to convey a teaching moral, 

though it might well have been allegory. 

The lesson, if any, is left for the reader to 

discover. Please try the various versions of 

the program for enjoyment, for enUghtenment, 

or for study as an interesting case history from 



had 
and 
pro- 
idea 



the abnormal psychology of the bizarre — I 
written an I Ching program for my Apple II, 
was casting about for an interesting "hello" 
gram as an introduction when I hit upon the 
that plotting the yang/yin symbol would be a 
perfect initiation to the Chinese symbol system. 
Fine, I thought, this will be simplerjust a couple 
of circles with one being half the diameter of the 
other and split down the middle by two differ- 
ent centers. To plot such a circle one needs 
an X coordinate derived from the COS of 
a radian and a y coordinate derived 
from the SIN of that same 
radian. (Cont.) 
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THE 

YANG/YIN 

O X Jl V JlUV^X-^ by David Belli Quadri 

The history of a search for execution speed 
in a simple HPLOT routine 

Since a radian is a linear perimeter constant that I put it all together to create the program listed in Table 
represents the length of a degree's arc (2 * pi/360 ), a full 1 as YANG/YIN-1. I ran it a few times just to make sure 
circle would have 2 * pi radians. A FOR... NEXT loop that that it performed in the desired fashion (see Figure 1 for 
runs from to 2 * pi will feed the required the screen output), then called my wife to come see so that 
radians nicely, particularly if it is STEPing at a rate of 2 * I could show it off and bask in the glory of another suc- 
pi / 200, giving two hundred points to plot on the desired cessful program, 
perimeter. "That's nice Dear," my beloved said to me, "but 

I decided to use the x axis at the 140 HGR line, the y at doesn't the Yang/Yin symbol represent yang, the light, 
the 80, in order to center my figure. I also decided to vary and yin, the dark, fading into one another as they circle, 
the centers of my various circles along the x = 140 axis, forming the Tao of Creation? I don't see any light in that 
moving from the y = 80 in the plotting of the smaller figure. Besides, I would get so bored waiting for it to plot 
circles in order to maintain the figure in what I conceived that I wouldn't sit through it to use your I-Ching." 
to be an upright position. This necessitated starting the As usual, she had a point. It was pretty slow at that. 
FOR.. .NEXT loop at .5 ♦ pi rather than 0, so that the first "Well, why not time it?" I thought. I loaded my trusty 
X figured would be plus the 140 baseline. timing routine (see the first program in Table 1) which I 

The Apple high resolution graphics screen, admirable in wrote for the Mountain Hardware Apple Clock. I inserted 
most respects, generates all those pretty moire figures the program to be timed in the middle of the routine by 
because of the length discrepancy between the distances using the renumber/merge program Apple so thoughtfully 
covered along the x and y axes. If one wishes to compen- provided, ran it, and lo, a 51 second execution time, 
sate for this enough to draw true circles rather than My wife's unwitting comment provided the stimulus for 
ellipses, a finagle factor of 1 .2 must be multiplied into the a new approach to the problem. If one plots from the inner 
x variable before it is added to the 140 baseline. set of perimeters to the (continued next page.) 
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continued from previous page 

outer in the same FOR... NEXT loop, 
it not only will fill up one side with 
"light," but should also prove faster, 
since the FOR... NEXT loop would 
only have to be passed through once. 
Of course, the second half of the outer 
circle would not only have to be plotted 
in the old way, but I would also have to 
figure a way to remember the last x, y 
point from which to plot. No problem. 
The good old Apple is great at remem- 
bering stuff. By re-arranging a few 
lines we now have YANG/YIN-2 
in Table 1 . 

It performed as expected, cutting a 
full 13 seconds off the execution time, 
but somehow I could hear my wife 
mumbling about how slow it seemed. 
Could it be cleaned up to run more 
quickly? Just for starters, all those 
places in which computations were 
made each time a comparison was 
made could have the computation 
made once outside the loop, rather 
than 200 times in the loop. That should 
save some time! In Appendix E, 
"Speeding up your program," in the 
Applesoft Basic Programming 
Reference Manual (page 120), I found 
several other helpful hints: using 
variables instead of constants; putting 
the most used variables first; and 
figuring the time overhead involved in 
moving from one line to another. 

As I attempted to put all these 
precepts for speedy execution together, 
I began to see that I could make a 
"one-liner" of my Yang/Yin plotter. 
That is, a program complete in one line 
that has many statements strung 
together. The problem to be overcome 
was fairly simple: Get around the blind 
trailing of unexecuted IF... THEN 
statements. The solution is, of course, 
to eliminate the IF. ..THEN 
statements. In analyzing the plotting in 
YANG/YIN-2, one finds the following 
to be true: 

T < 1.5 * pi HPLOT 140 + X,80 + Y 
TO 140 -h X/2, 110 + Y/2 
T > 1.5 * pi HPLOT 140 + X/2, 50 -I- 
Y/2 TO 140 -I- X/2, 50 - Y/2 

By exploiting the little used and all but 
unknown Applesoft ability to evaluate 
and execute conditional multipliers, 
one can build a plotting statement that 
will emulate our multiple IF... THEN 
statements. A conditional inequality is 
(T < 1.5 ♦ pi) which will evaluate as 
if the condition is false, and 1 if the 
condition is true. The statement 140 -I- 
X/(l -I- 1 ♦(T>1.5 ♦pi)) will be 140 
H- X when T < 1.5 * pi, and 140 + X / 
2 when T > 1.5 * pi. By making the 
necessary changes, YANG/YIN-3 
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was produced. 

Proud now that I had my Yang/Yin 
with both light and dark, condensed 
from twelve lines to one (slightly in 
comprehensible) line, and running 
nearly twice as fast, I called for my 
wife to come be appreciative. She was 
impressed as I ran it, then listed it and 
explained the true elegance of pro- 
grammng conditional multipliers and 
oneliners. Mostly she was impressed 
that I felt compelled to continually test 
to find where the FOR... NEXT loop 
was in order to know what to plot. 

"All that testing and multiplying! 
Doesn't the computer know that 
during the first half of the loop, T is 
always less than 1.5 ♦ pi, and during 
the second half, it is always more than 
1.5 * pi?" She smiled, continuing, "I'll 
bet that a program designed to take ad- 
vantage of that knowledge, which lets 
the computer skip all that computing, 
might just plot a little faster." 

The elegance of a one-liner was lost 
on her. Okay, here are two 
FOR... NEXT loops to replace the 
testing: one to 1.5 ♦ pi, the other from 
there to 2.5 * pi. YANG/YIN-4 was 
the result, and ran in 20 seconds. 
"Great!" The problem had seen its 
solution now. 

My beloved's only comment was, "I 
like circles because they're so sym- 
metrical. Put a mirror down the center 
line of half a circle, and it will appear 
whole — the reflection just hke the 
image. ' ' 

Sometimes I don't understand her at 
all — mirror images now! Then, 
sometimes I do follow her intuitive 
jumps. In this case, it was apparent 
that half my figure could be plotted as 
a mirror image, if one used the X = 
140 line for mirror placement. When T 
is between .5 and 1.5 * pi, COS (T) is a 
negative value which makes 140 -I- X 
less than the baseline X = 140. When 
T is greater than 1.5 * pi, the values 
derived are similar, but positive. Sub- 
tracting a negative is the equivalent of 
adding a positive... hmmm! Let's try it 
by employing one FOR... NEXT loop 
to 1.5 ♦ pi, one HPLOT using 140 -I- 
X, and one HPLOT using 140 - X. 

YANG/YIN-5 is the end result, a 
one-line program which runs in about 
13 seconds, and is close to minimum 
for the particular solution to this plot- 
ting problem. With 33 operations on 41 
called variables, and 100 iterations, a 
mini/max balance has been achieved so 
that a further sectioning of the circle 
increases the variables and operations 
to the point where speed is actually 
lost. Fewer iterations via larger 
STEPing-say, a halving by using STEP 
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2 * pi / 100-produces a rather 
unesthetically pleasing figure with a lot 
of lines showing in the light, or ' 'yang' ' 
side. 

Care must be taken in entering 
YANG/YIN-5, for it really is too long 
for a one-Hne program. All spaces 
must be eliminated, and the PRINT 
statement tokenized with the ? 
substitute. If an error is made, correc- 
tions can only be made with a Une 
editor, or by retyping the program in 
its entirety. The following is a brief ex- 
planation of the various parts of the 
program: 



10 HOME : HGR :HCOLOR = 7 

sets up HIRES graphics in white 

:K = 2: A = 60: E = 1.2 sets 

variables serving as constants 

:Z = 140: L = 80 sets baselines 

:M = 1 10: N = 50 sets plotting 

centers 

:P = 3.1416: B = 60 sets pi, 

initializes variable B for 1st plot Y, C 

is automatically 

:FOR T = P/K TO K ♦ P sets loop 

for 100 iterations 

STEP K * P / 200 STEPing every 1.8 

degrees 

:X =A* E * COS (T)Xaxis 

modifying variable 

:Y = A * SIN ( T ) Y axis modifying 

variable 

:HPLOT Z + X, L -h Y left side 

yang start plot 

TO Z -I- X / K, M + Y / K left side 

yang finish plot 

:HPLOT Z-X/K, N-l-Y/K 

right side yang start plot 

TOZ- X/K, N-Y/K right side 

yang finish plot 

:HPLOT Z - C, L -I- B right side 

perimeter old point 

TO Z - X, L -I- Y right side perimeter 

new point 

:C = X: B = Y remember the last 

plot point 

:NEXT : VTAB 22 end of loop, set 

line to print on 

:PRINT TAB (17) "YANG/YIN" 

prints program name 

All these parts can be set up in their 
own lines and modified by ex- 
perimenters eager to beat the clock. I 
suspect that a really significant bet- 
tering of the execution time will require 
a different algorithm for deriving the 
points to be plotted. 

My wife has begun to wonder what 
language the Apple II really "likes." I 
wrote a little program for her as a 
punishment for being so hard to please 
(see ETI-YO in Table 1), but only in 
fun. 

"Isn't that last word misspelled. 
Dear?"... 



Table 1 


TIMER SUBROUTINE 


I 


60SUB lOOOiTl ■ T 


2 


REN ttt» INSERT THE PROSRM 


3 


REH ttt» TO BE TIRED BY THIS 


4 


REH ttt» TININ6 SUBROUTINE 


5 


REN ttt» ANYHHERE, FRON HERE 


995 


REH ttt» TO HERE! 


997 


60SUB 1000: T2 > T 


998 T « T2 - Til PRINT "TIHE • '| 

T 


999 


END 


1000 PRINT CHRt (4);'INI4'i INPUT 




Ati PRINT CHRI (4)riNI0'iT 




' VAL ( Nm (At, 13,6)) * 




VAL ( NIDt (A«,10,2)) t 60i 




RETURN 


YANG/YIN-1 


10 


HONE 1 HSR i HCOLOR' 7 


14 R * SOiC ' 80 


16 


FORT » .5 » 3.1416 TO 2.5 1 




3.1416 STEP 2 t 3.1416 / 200 


18 X > 140 ^ 1.2 t R 1 CDS (T) 


20 Y « C + R 1 SIN (T) 


22 


IF T « .5 I 3.1416 THEN HPLOT 




x.v 


24 


IF TC THEN HPLOT K.YiTC - 


26 


IF T < > THEN HPLOT TO K 
IF C MIO ANB T > 1.3 t 3.14 


28 




16 THEN C > SOiTC ■ i 


30 


NEXT 


32 


IF R > 60 THEN R > 30iC > 110 




1 SOTO 16 


34 


VTAB 22i PRINT TAB! 16)-YAN6 




/YIN' 


YANG/YIN-2 


10 


HSR : HCOLOR* 7: FOR T > .9 t 




3.1416 TO 2.5 t 3.1416 STEP 




2 t 3.1416 / 200 


20 1! « 1.2 t 60 t COS (T)iY ■ 60 | 




t SIN (T) 


30 


IF T < 1.5 1 3.1416 THEN HPLOT 




140 ♦ X,80 + Y TO 140 M / 




2,110 ♦ Y / 2 


32 


IF T > 1.5 1 3.1416 THEN HPLBT 




140 + X / 2,50 + Y / 2 TO 14 




+ X / 2,50 - Y / 2 


34 


IF T ' .5 t 3.1416 THEN X2 > 




XjY2 ' Y 


3b 


HPLOT 140 + X2,80 ♦ Y2 TO 140 




+ X,80 + Y 


38 n ' XiY2 > Y 1 


40 


NEXT 



YANG/YIN-3 

10 P = 3.1416:Y2 = 60:2 = 140: H6R 
! HCOLOR= 7! V = 1.5 » Pi FOR 
T = .5 I P TO 2.5 » P STEP 2 

t P / 200iX > 1.2 t 60 t COS 
(T)iY = 60 » SIN (T)i HPLOT 
Z + X / (1 + 1 t (T > V)),50 

+ 30 I (T < V) + Y / (1 + 1 

» (T > V)) TO 2 + X / 2,50 + 
60 » (T < V) + Y / 2 - Y I ( 
T > V)i HPLOT Z + X2,80 ♦ Y2 

TO Z + X,B0 + YiX2 » XiY2 » 
Yi NEXT : VTAB 22i PRINT "YA 
NG/YIN' 



YANG/YIN-4 

10 HOHE I HBR i HCOLOR= 7iP = 3. 
1416iY2 = 60iZ ' MOiV > 1.5 
I Pi FOR T = .5 t P TO V STEP 
2 t P / 200!X > 1.2 t Y2 t COS 
(T)iY ' Y2 I SIN (T)! HPLOT 
Z + X,80 + Y TO 2 ♦ X / 2,11 

+ Y / 2! NEXT iY2 ' YiX2 » 
X 

20 FOR T « V TO 2.5 t P STEP 2 I 
P / 200iX = 1.2 t 60 t COS 
(T)iY » 60 t SIN (T)i HPLOT 
2 + X / 2,50 + Y / 2 TO Z t 
X / 2,50 - Y / 2i HPLOT 2 ♦ 
X2,80 M2 TO Z + X,B0 * YiX 
2 « X;Y2 « Yi NEXT i VTAB 22 

1 PRINT TAB( 16)'YAN6/YIN' 



YANG/YIN-5 

10 HOHE t H6R i HCDLOR= 7:K < 2i 
A = 60iE - 1.2i2 > 140iL * 8 
OiH ' UOiN > 50iP ' 3.14161 
B = 60i FOR T » P / K TO 1.5 

» P STEP K » P / 200:X = A I 
E t COS (T)iY » A t SIN (T 
)i HPLOT 2 + X,L + Y TO 2 + 
X / K,H t Y / Ki HPLOT 2 - X 

/ K,N + Y / K TO 2 - X / K, 
N - Y / Ki HPLOT 2 - C,L + B 

TO 2 - X,L + YiC « XiB = Yi 

NEXT i VTAB 22i PRINT TAB! 
17)'YAN6/YIN" 



ETIYO 

10 HONE I HSR ; HCOLOR^ 7!A > 60 
:E = 1.2iL = MOiN ■ SOiB » 
1.9!P = 3.1416iK = 2i FOR T » 
TO P STEP K t P / 200iX = 
A t E t COS (T)iY - A t SIN 
(T)i HPLOT L + X,H + Y TO L ♦ 
B t X,H + Yi HPLOT L + X,H - 
Y TO L + B t X,H - Yi NEXT i 
VTAB 22! PRINT TAB! 5) 'YOU 
ARE THE APPLE OF NY EYE!!!' 




FigHre 1 
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Take Apart: Atari Quest 



by Alan J. Zett 

If you didn't see the program 
"Quest 1" in the August 1981 issue, 
you are missing out on one of the best 
programs SoftSide has ever pub- 
lished. But, if you did see "Quest 1," 
and you own an Atari, you've pro- 
bably been asking yourself a lot of 
questions while hunting through the 
program code or even muttering under 
your breath because of the special 
"tricks" it uses that you might not ful- 
ly understand. 

When 1 wrote the Atari translation, I 
felt that this program was good enough 
to warrant some special attention to 
hidden Atari features. I decided to ex- 
clude sound because it would detract 
from the game. We've all heard of the 
untold mysteries of the Atari 800, but 
few have discovered what they really 
are. 

I first redefined the player's game 
character (usually an "@" symbol) to 
look like a man with a raised sword. I 
was pretty much satisfied with this un- 
til I recalled reading an article in the 
October 1980 issue of SoftSide on how 
the Atari, while in the graphics mode, 
will plot a yellow dot next to a blue dot 
to get a white dot. I decided to try this 
on the character set and it worked. 

I reasoned that it should be possible 
to redefine a character to be an inverse 
space (a white block) in a color of my 
choosing. It also turns out that when 
this character is inversed, it will 
become the complementary color of 
itself. Using this idea, I constructed the 
dungeon display with what appeared to 
be color graphics surrounded by text, 
when in actuality the display was com- 
pletely made up of multi-colored text 
characters. 

Let me explain in more detail how 
this display was done. First, there are 
some important memory locations for 
you to learn listed in Figure 1 . They are 
integral to the understanding and oper- 
ation of my concept, so study them 
carefully. 

Because the character set is in ROM, 
we must move it to RAM in order to 
modify it. (ROM stands for Read Only 
Memory; we can never write to it, it is 
permanent. RAM means Random Ac- 
cess Memory; we can do whatever we 
like with it.) Fortunately, this move 
isn't very difficult. We must PEEK at 
the characters in the ROM and then 
POKE them into our new location in 
RAM, being sure to clear the area first 
76 



and pointing BASIC to the new set 
after they've all been moved. This is 
accomplished by the following lines: 

5 REM CHARACTER SET IS IK 
BYTES LONG SO BUMP THE END 
OF MEMORY BACK IK (4 PAGES) 
+ 1 PAGE FOR GOOD MEASURE. 
CLEAR THAT AREA WITH A 
GRAPHICS COMMAND TO 
READJUST THE BASIC 
POINTERS TO THE NEW RAM 
TOP. 

10 POKE 106, PEEK (106)-5: 
GRAPHICS 

15 REM GET THE POSITION 
WHERE THE NEW CHARACTER 
SET WILL BE LOCATED INTO 
THE VARIABLE START AND 
MOVE THE OLD CHARACTER 
SET THERE. THIS WILL TAKE 
ABOUT 22 SECONDS. 
20 START = (PEEK(106) + 1)*256: 
FOR X = TO 1023: POKE 
START -t-X, PEEK(57344-I-X): 
NEXTX 

There! The character set is now in 
RAM and we are almost ready to begin 
modifying it. But before we can do 
that, you'll have to find out more 
about the way ROM stores a character. 

Refer to Figure 2 to see how the 
ATASCII codes compare to their pos- 
ition in RAM. As you can see, codes 



Figure 1: 




Table of important memory 


locations 




Decimal Hexidecima 


Purpose 


00106 006 AH 


Holds the value 




of the last free 




page (256 bytes) 




of memory in 




RAM. 


00756 02F4H 


Holds the value 




of the starting 




page m memory 




where the 




character set 




resides. 


57344 EOOOH 


Location of the 




original 




character set 




in the ROM 




Operating 




System. 



normally occupying the values between 
and 31 are graphics characters, but in 
the ROM, they are located between 64 
and 95. Codes between 32 and 95 are 
located from to 63 and those from 96 
to 127 are the same. Codes above 127 
are inverse codes of the first 128 
characters. For example: a normal up- 
percase "A" is character number 65. 
An INVERSE uppercase "A" is 65 -l- 
128 or 193. 

Each character consists of 8 "bit- 
mapped" bytes. Bit-mapped simply 
means that each of the 8 bits in the byte 
stand for something different. In this 
case, 8 bytes can form an 8 by 8 array 
of bits. Since a bit can only be a "0" or 
a "1," a "0" indicates a dot in the 
character that will not be lit and a "1" 
indicates a dot that will. When drawn 
together, these dots give us an 8 by 8 
dot matrix character on the screen. If 
we want to change a character, all we 
need to do is change the bits that we 
want on to "I's" and those we want 
off to "O's." 

Each bit is assigned a value so that 
when all 8 bits are "on" or "1," the 
total will be 255. We don't have to get 
too involved in binary numbers; take 
my word for it when I tell you that 
Figure 3 shows the value assigned to 



Figure 2: 

The position in memory of 
a character based on its 
ATASCII code. 



ATASCII 

Value (X) 



Memory Location 
in RAM 



000 to 031 (X + 64 ) * 8 -I- START 
032 to 095 ( X - 32 ) * 8 + START 
096 to 127 X * 8 + START 



Figure 3: 




Values of bits depending on | 


their positions. 




Relative Bit 


Multiply Bit 


Position 


Value by: 





1 


1 


2 


2 


4 


3 


8 


4 


16 


5 


32 


6 


64 


7 


128 
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each of the 8 bits in our byte. 

If we take a Httle graph paper and 
mark off an 8 by 8 grid, we can now 
draw the shape we wish to use. The 
graph should look something hke this: 



1 
2 6 



3 1 



4 2 6 



DD 
DD 
DD 
DD 
DD 
DD 
DD 



nan 
nnn 

DDD 

nnn 
nnn 
nnn 
nnn 
nnn 



4 2 1 

nnn 
nnn 
nnn 
nnn 
nnn 
nnn 
nnn 
nnn 



The numbers on the left side indicate 
the number of the byte. The boxes 
indicate the row of 8 bits for that byte 
(all set to "O's") and the numbers 
above them indicate the value of the bit 
at that position. If I want to draw a 
man character, the grid would look like 
this (filled boxes indicate on bits and 
empty ones indicate off bits): 



1 

2 
8 

1 ■ 

3 ■ 

4n 
5 n 
6n 
7 n 



6 3 

4 2 

nni 
■ ni 



1 

6 8 4 2 1 

■ ■nnn 

■ ■nnn 



nniBnaa 
nnaanna 
nHiBinn 
■■nnaan 



inn 



152 or 098H 
216 or 0D8H 
255 or OFFH 
27 or OIBH 
25 or 019H 
60" or 03CH 
102 or 066H 
= 231 or 0E7H 



Now that we have the data we need, 
all we have to do is look up the 
character we want to change (in this 
case, the "@" symbol) in Figure 2 
based on its ATASCII value and we 
come up with ( 64 - 32 ) * 8 + START 
or 256 + START. This is the location 
of the 8 bytes that make up the "@" 
symbol. Now all we have to do is a 
short 2 line routine to change it as 
follows: 

30 RESTORE: FOR X = TO 7: 
READ Y: POKE X + 256 + START, Y: 
NEXT X 

40 DATA 152, 216, 255, 27, 25, 60, 
102, 231 

We now have an "@" that looks 
like a man. But, you say, he's WHITE. 
HOW DID YOU GET THE 
COLORED WALLS IN "QUEST"? 

Unfortunately, the answer to that 
requires a bit more thought. I 



mentioned earlier that BASIC will plot 
a yellow dot next to a blue dot to get a 
white dot. If you take this idea a step 
further, you can begin to see where I'm 
heading. 

If we were to draw a single dot in a 
character without another dot right 
next to it, we will see a non-white single 
color. This color is mainly dependent 
on the BACKGROUND color used, 
not the text color as you would suspect. 
For instance, take the following 
character: 



1 
6 8 



4 2 1 



!■■■■■■■■= 255 or OFFH 

2HHHH|= 255 or OFFH 

3lHHBH= 255 or OFFH 

4|HBIIH= 255 or OFFH 

5lBBIIBH= 255 or OFFH 

6BBBBBBBB= 255 or offh 

7BBBBBBBB= 255 or offh 
8BBBBBBBB= 2ssor offh 

This is the "bit-map" of the inverse 
space. Note how every bit is used and 
that every bit has another bit next to it. 
If we modify it Hke this: 

1 

2 6 3 1 

8 4 2 6 8 4 2 1 

1 BnBnBnBn= nooroAAH 
2BnBnBnBn=i7oor oaah 
3 B n B n B n B n = 170 or oaah 
4BnBnBnBn=i70or oaah 
5 B n B n B n B n = 170 or oaah 
6BnBnBnBn = i70or oaah 
7BnBnBnBn = i70or oaah 
8 B n B n B n B n = 170 or oaah 



It will still look Hke a full block 
(because a standard TV picture tube 
can't separate lines that close without 
smearing them together), but this block 
is now colored, as opposed to white. 
Furthermore, by using the inverse key, 
we can have another color (the first 
color's natural inverse: e.g., red is the 
inverse of green) giving us a total of 4 
colors in the text mode: white, the 
background color, and 2 other colors 
dependent on the background color. 
Or you could look at it Hke this: white 
text, and 4-color block graphics. 

All the inverse key does to the block 
is reverse all the on bits in a character 
to off bits and vice versa. The 
character used in our example, when 
inversed, will look like this: 

SoftSide October 1981 



2 6 3 1 








8 4 2 6 8 4 2 1 








1 nBnBnBnB- 


85 


or 


055H 


2nBnBnBnB= 


85 


or 


055H 


3 nBnBnBnB = 


85 


or 


055H 


4 nBnBnBnB = 


85 


or 


055H 


5 nBnBnBnB = 


85 


or 


055H 


6 nBnBnBnB = 


85 


or 


055H 


7 nBnBnBnB = 


85 


or 


055H 


8 nBnBnBnB = 


85 


or 


055H 



If we add this Hne: 
50 FOR X = TO 7: POKE 
X -I- 48 + START, 170: NEXT X 
this win give us the colored block 
pattern (and thus our other 2 colors) 
redefined for the "&" character. ^ 
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Character Generator 



by Alan J. Zett 

"Atari Character Generator" is an 
Atari utility program requiring 16K 
RAM. 

The following are instructions and 
documentation for the Character 
Generator. For a more in-depth ex- 
planation, see "TAKE APART — 
Atari Quest" elsewhere in this issue. 

First, press SYSTEM RESET, load 
the program, and type RUN. It is ab- 
solutely necessary to press SYSTEM 
RESET prior to RUNning any pro- 
gram using a modified character set. 
Forgetting to do so can cause the com- 
puter to lock-up and lose the program 
currently in memory. 

After about twenty seconds you 
should see all the characters (except in- 
verse) displayed on the left side of the 
screen , a large box displayed on the 
right side , and at the bottom the 
message "Edit character or Save 
file?". Let's assume for now that you 
type "E." 

The message "X,Y coordinate of the 
character?" will now be displayed. 
This is prompting you for the horizon- 
tal (X) position of the character, which 
is between and F, and the vertical (Y) 
position, which is between and 7. 
Type them in together. For this exam- 
ple we'll type 0,2 (the comma is op- 
tional) which corresponds to the blank 
space character. 

The computer will now put that 
character into a small box, and an ex- 
panded version in the large box next to 
it. (In this case the character is blank, 
so nothing is put in either box.) 

The message at the bottom shows 
you the nine different commands 
available to you in the modify mode. 
You should also see a Winking " -i- " in 
the large box on the right. This is your 
cursor. It shows you where the next 
modification will take place. Note: 
Only DELETE and RETURN make 
actual changes to the character set as 
stored in memory; the other commands 
affect only the display. 

To plot a block in the character, use 
the SET command. Use the arrow keys 
to position the cursor where you want 
to make a change, and press "S" to 
turn the block on. To do the opposite, 
type "R" to RESET the block, posi- 
tioning the cursor in the same way as 
for the SET command. If you want to 
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erase the entire drawing pad, type "E" 
for ERASE. Or, to start with all blocks 
on, type "W" to WHITE out all 
blocks. Reversing the drawing is done 
by typing "I" for INVERSE. 

If you want to load in another 
character with which to start your 
design, type "C" for COPY. You will 
be asked to select a character, and its 
pattern will then be copied onto the 
drawing pad. 

If you accidentally choose the wrong 
character to modify, you can cancel the 
MODIFY mode at any time by hitting 
the ESC key. This allows you to 
ESCAPE to the "X,Y of character" 
mode. The DELETE command lets 
you change your mind about a 
modification by restoring the current 
character to its unmodified form. 

Finally, when everything is correct, 
hit RETURN to make the change both 
in memory and on the screen. 
Remember that this change is not per- 
manent, and can be changed again by 
using any of the commands. 

For our example, let's draw a series 
of vertical stripes in the large box. It 
should look something hke Figure 1. 
When everything is just right, press 
RETURN. Right in front of your eyes, 
all blank spaces on the screen should 
turn a different color. (The "fade-in" 
effect is reminiscent of the way in 
which the Apple clears its Hi-Res 
screen.) 

You can keep on modifying all night 
if you want, but for now, we'll call it a 
day. When you see the message "X,Y 
of ...," press RETURN again. This 
will take you back to the original 
menu. From here, select the "S" op- 
tion to save the file. The computer will 
ask, "Want to SAVE (Y/N) ?" In 
case you hit "S" by accident, type N. 
Otherwise, type Y and hit RETURN. 
The prompt, "To Cassette or Disk?" 
will be displayed; answer with a "C" 
or "D". 

If you said "D", then answer the 
next question with the 8-letter filename 
plus a 3-letter extension, all preceded 
by a "D:" .Answer the next question 
"Is this right?" with a "Y" or "N" 
and hit RETURN. 

If you said "C", for a cassette save, 
then you'll hear two beeps. Prepare the 
cassette and press RETURN. After the 
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save, type "Y" to continue or "N" to 
stop. 

Now that you've saved it, what can 
you do? This is the best part! Write 
your program between lines 2 and 
31999 using the characters that will be 
modified where necessary. When it's 
all done and totally debugged, type 
either ENTER"C" for cassette or 
ENTER"D:filename.ext" for disk. 
This will merge the custom character 
set into your program, and it should 
run perfectly the first time. 

Two final notes: First, the new pro- 
gram will take an extra 1.25K of 
memory and will take longer to in- 
itialize. Second, after every 
GRAPHICS command you must insert 
a POKE 756, PEEK (106) -I- 1. This is 
because the GRAPHICS command 
restores the character set pointer in 
memory. The new set is still there, but 
the pointer must be reset to access it. 
One benefit from this is that you can 
toggle back and forth between the two 
character sets by typing POKE 756, 
224 to get the original set and POKE 
756, PEEK (106) +1 for the new set. 
Note that PRINT CHR$(125) clears 
the screen as does GRAPHICS 0, but 
does not affect the current character 
set. 

Well, that's it. I hope you enjoy 
yourself! We'll be looking forward to 
new Atari programs using custom 
character sets in future issues of Soft- 
Side. 

Variables 

A$: Misc. string input. 
B: Binary bit value counter. 
B(*): Modified character pointer ar- 
ray (-1 = not modified). 
C: Character byte value. 
CC: Current character at cursor posi- 
tion. 

CH: Command character. 
CU: Cursor character. 
CX: Cursor X position. 
CY: Cursor Y position. 
FL: Modify flag. 

HEX$: Used in converting hex input 
to decimal. 

KP: Key pressed? (No = 255.) 
START: Starting location in memory 
of new character set. 
W, X, Y, Z: Misc. 



Initialization. 

10 OPEN •l,4,0,'K'iOPENI2,12,0,'B' 

12 CLR iDIH 1(127), HEXKU) 

14 DIN At(14)i60SUB 10000 

20 HE1(»-'01234547B9AM:DEF" 

22 SETCOLOR 2,9,2iSETC0LM 4,4,4 

24 POKE 82,21 

Redraw entire display. 

30 ? CHRt(125)iP0KE 752,1 

32 POSITION 19,0 

33? ■ CHARACTER BENERATOH ' 

34 POSITION 19,1 

35 ? ' BY AlAN J. ZETT ■ 

Zb FOR X>7 TO 16 STEP 9tPOSITI0N 2,X 

38 ? ' 012345t7B9ABCDEF ' nNEXT I 

40 FOR 1I«B TO ISiPOSITION 2,t 

42 ? CHR«IXM&8);iP0SITI0N 19,1 

44 ?CtWIIXtlM)|iNEXT I 

50 POSITION 4,5i? 'Chiricttr iiti'; 

60 POKE 7M,liF0R X-O TO 7 

62 FOR Y>0 TO 15tP06ITION ^*Z,m 

M ? CHM(XI16^Y)||NEXT YiNEXT X 

66 POKE 766,0!PDKE 752,1 

70 POSITION 26,7i? ' 'i 

71 REN <CTW.> 'tmmfK' 

72 POSITION 26,161? ' 'i 

73 REN (CTRL) 'XRRRRRRRRC' 

80 FOR X>l TO ISiPOSITION 26, X 
82 ? ■ 'iiNEIT X 
B3 REN <8HIFT> '■ 

90 POSITION 24,141? ■ '\ 

91 REN <CTRL> 'QM' 

92 POSITION 24, 15i ? ■ ■{ 

93 REN <8HIFT> '■ ■' 

94 POSITION 24, 16i? ■ 'i 

95 REN (CTRL) 'ZRX' 

Select main program options. 

100 808UB 9000IPOSITION 2,20 

102 POKE 752,0 

104 ? 'Edit charicttr or Sm fill'} 

106 INPUT At 

108 IF A«(1,1)-"S" THEN 570 

110 IF A<(1,1)()'E' THEN 100 

Input and adjust value of character. 

120 B08UB 9000tP08ITI0N 2,20tTRAP 66 

122 7 'XfY coordiRiti of tht ckwuttr 

'M INPUT A« 

130 IF AtlLENIAtDCO' OR A«(LEN(A«))) 

■7' THEN 120 

140 TRAP 33333iY>VAL(At(LEN(At)))iX'l 

150 IF At(l,l)()HEXt(X,X) TI€N X-XMil 

F X(17 TICN 150 

160 X>X-]iIF X)1S THEN 120 

170 POKE 752,liZ>Xmi6 

172 POSITION 25,15iP0KE 766,1 



174 ? CHRt(Z)pPOKE 766,0 

180 IF Z(32 THEN Z>Z^64i6OT0 200 

190 IF Z(96 THEN I«Z-32 

Draw character onto pad. 

200 POKE 82,27 

210 FOR Y-O TO 7iX>0iC>PEEK(8TART+Y+Zt 

B)iB>256 

220 B«B/2iIF B(l THEN 270 

230 POSITION X+27,YtBiX-X>l 

240 IF (C-B)(0 THEN ? ' '(iBOTO 260 

250 IF IC-B))"0 T1€N ? '_"|jC«C-B 

260 SOTO 220 
270 NEXT Y 

Obtain modify command and 
branch. 

280 B08UB 90O0iP0SITI0N 2,20iP0KE 82,2 
290 POKE 7S2,li? 'Copy, Dtliti, Eraii, 

inverii, Rnit,':? i? 'Sit, Nhiti, ES 
Capi, RETURN to itori.'}' 
300 POKE 752,liP0KE 764,255iCX>27iCY>8 
310 POSITION CX,CYi8ET t2,CC 
320 POSITION CX,CYiPUT l2,CCtKP>PEEK(7 
64)iCUM3iIF CC()32 THEN CU>171 
330 IF KP»255 THEN POSITION CX,CYiPUT 
t2,CUiBDT0 320 

340 SET ll,CHiIF CH«155 THEN 470 
350 IF CH*27 THEN 120 
352 IF CH"A6C("E') THEN 790 
354 IF CH'ASCCC) THEN 820 

356 IF CH'ASCCD') THEN 810 

357 IF CH>ASC('H') THEN 1000 

358 IF CH>ASC('I') THEN 1020 
360 IF CH'ASCC-") THEN CY-CY-1 
370 IF CH-A8C<'»') THEN CY»CY+1 
380 IF CH>ASC('+') THEN CX'CX-1 
390 IF CH-ASCCI') THEN CX»CX+1 

400 IF CH'ASCCS') THEN CC>160iBOT0 32 



410 IF CH>ASC('R') THEN CC«32>B0T0 320 

Correct cursor position in pad. 

420 IF CX(27 THEN CX«34 
430 IF CX)34 THEN CX«27 
440 IF CY(B THEN CY>15 
450 IF CY)15 THEN CY-8 
460 60T0 310 
470 POSITION CX,CYiPUT I2,CC 

Make character modifications. 

480 FOR Y>0 TO 7iX-0>B>256iCC«XiC>X 

490 B>B/2iIF B(l THEN 540 

500 POSITION Xt27,Yt8iX>XMieET •2,CC 

510 IF CC>32 THEN 530 

520 IF CCM60 THEN C>C+B 

530 60T0 490 

540 POKE START+Y+Zt8,C 



550 NEXT YiPOSITION 34,15 

560 PUT t2,CCtB(Z)>Zt8 

562 FL»OiFOR Y«0 TO 7 

564 IF PEEKISTART+Y+Zt8)()PEEKI57344+Y 

*im THEN FL>1 

566 NEXT YilF FL«0 THEN B(Z)>-1 

568 60T0 120 

Save file routine. Note: Be especial- 
ly careful typing these lines. Correct 
spacing is very important. 

570 PRINT CHR«( 125)1 POKE 82,2 

580 TRAP 990iP0SITI0N 2,5 

582 ? 'You Hint to SAVE (Y/N)'| 

584 INPUT AliIF A«(1,1)()'Y' THEN 30 

590 ? 'To Caiiitte or Disk'ji INPUT A« 

600 IF A«()'D' THEN 620 

610 ? 'Entir fill 'DiFILENANE.EXT" 

612 IWUT Ati? 'If "}AI)" cornet ?' 

} 

614 6ET tl,CH:IF CH«78 THEN 610 
620 OPEN 13, 8,0, At 
630 PRINT I3|'l 608UB 32000iCLR' 
640 PRINT 13) '32000 POKE 106, PEEK (106) 
-5sBRAPHICS 0iSTART:'(PEEK(106)+l)t256i 
POKE 756, START/2561 POKE 752,1' 
650 PRINT I3)'32010 ? '|CHRt(34);'INIT 
[ftllUm . . .'}CHRt(34) 
660 PRINT 13; '32020 FOR Z'O TO 1023iP0 
KE ST ART+Z, PEEK (57344+Z)i NEXT ZiRESTOR 
E 32100' 

670 PRINT «3) '32030 READ XiIF X*-l THE 
N RESTORE i RETURN' 

680 PRINT I3| '32040 FOR Y'O TO 7iREAD 
ZiPOKE X+YtSTART,ZjHEXT YjBOTO 32030" 
690 LN«32100)LI>liF0R Z>0 TO 127 
700 IF B(Z)»-1 THEN 750 
710 PRINT i3)STRt(LN))' DATA ') 
720 PRINT •3{STRt(B(Z))) 
730 FOR Y-0 TO 7»PRINT l3j",'}STRt(PEE 
K(STARTmZt8))|iNEXT Y 
740 PRINT l3)"iLH»LN+LI 
750 NEXT ZtPRINT l3)STRt(LN)|' DATA ') 
BTRt( -1)1 CLOSE «3iTRAP 33333 
760 POKE 764,2551? 'HANT TO CONTINUE') 
(INPUT At 

770 IF At(l,l)«'Y' THEN 30 
780 ? Clffit(12S)iEND 

Erase command. 

790 FOR Y'B TO 15iPO8ITI0N 27,Y 
800?' ■) (NEXT YiBOTO 300 

Delete command. 

810 B(Z)>'-liFOR Y-0 TO 7iP0KE STARTS 
ZtB,PEEK(57344fYiZtB)iNEXT YiBOTO 120 

continued on page 83 
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OCTOBER ADVENTURE OF THE MONTH 
CRIME ADVENTURE 

Test your skills as a detective, sifting through hundreds of 
clues. You may have to become the new Sherlock Holmes to 
solve this one! 

A new obsession is sweeping the country as members of 
SoftSide's Adventure of the Month Club rush to their 
mailboxes each month. Where will they be taken this month — 
Off into space? Back in time? To the bottom of the sea? 

You too can look forward to an exciting new spree, full of 
secrets, every month. Your program budget won't be 
destroyed, either. Membership in SoftSide's Adventure of the 
Month Club costs only $27 for six months on tape ($4.50 per 
adventure) or $45 for six months on disk ($7.50 per adventure). 

You can sample these delights with one month's edition. 
The tape is only $6 and the disk $9. 

To join this unique crew, use the order card bound into this 
issue. Fill it out and send with payment to: 

Adventure of the Month Club 

Department 681 

6 South Street 

Milford, NH 03055 

Sit back and wait for your first program to arrive. SoftSlde 
will select a high quality, original Adventure in BASIC. Watch 
for the announcement of each month's Adventure here in the 
pages of SoftSide Magazine. 

SYSTEM REQUIREMENTS: 
Apple 24K Tape 32K Disk 
Atari 32K Tape 40K Disk 
S-80 16K Tape 32K Disk 



.m THIS Moms Smftb 

Smart Ware (USp) for the Apple H f rorYv^ 

^hcfdctS' l^clatfonal database. c&poihi//f.^sJJser& 

cfuacfz. Uszr ^vnfaX<^cJate- ^rudu^e up6y\ <^hich (z^^- 
ik<^y ca/l LiSP the: /anc^oa.<^. of t^^. f-of-orv.. ('S<2!<z eh<z ' 
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SoftSide Selections Order Form 



S 80 PROGRAMS 

D Alien Invasion, 

16K Tape, Machine Language $9.95 

D Alien Invasion, 

32K Disk, Machine Language $14.95 

D Column Calculator 4.1, 

32K Disk (Mod I only) $39.95 

D End Zone II, 16KTape $14.95 

D End Zone II, 32K Tape $15.95 

D Floppy Disk Diagnostic, 

16-48K Disk (Mod I only) $24:95 $22.50 * 

D Nine Games for Preschool Children, 

16K Tape $9.95 

D Orchestra 80, 

16K Software/Hardware combo $80:60 $69.95 * 

D Star Trek III.5, 16KTape $14.95 

D Star Trek III.5, 32K Disk $15.95 

D Typing Tutor, 16KTape $19.95 

D Typing Tutor, 32K Disk $20.95 

D World Series, 16KTape $9.95 

APPLE PROGRAMS 

D Pool 1.5, 48K Disk $34:95 $29.95* 

D SmartWare (LISP) $426:00 $1 12.50* 

D Time Lord, 48K Disk, Integer $29.95 

D World Series, 16KTape $9.95 

D World Series, 32K Disk $14.95 

ATARI PROGRAMS 

n Masters' Golf, 8K Tape $9.95 

D Star Trek III.5, 32K Tape $19.95 

D World Series, 16K Tape $9.95 

OTHER 

n The Apple II User's Guide $15.00 

D The Basic Handbook $49:95- $17.95* 

D Vinyl Binder (small) $3.95 

D Vinyl Binder (large) $7.95 

*Offer Expires November 15. 



ADVENTURE OF THE MONTH 

n Crime Adventure Tape $6.00 

for the computer 

D Crime Adventure Disk $9.00 

for the computer 



ADVENTURE OF THE MONTH CLUB 

n 6 month Tape subscription $27.00 

for the computer 

D 6 month Disk subscription $45.00 

for the computer 



SOFTSIDE SUBSCRIPTIONS 



n Magazine only (12 issues) $24.00 

With the SoftSide cassette subscription you receive not 
only the magazine, but all of the programs in it on tape. 
The Enhanced Disk Version includes the magazine, its 
programs on disk, AND additional programs only 
documented in the magazine. 

D Magazine and cassette (12 issues) $75.00 

D Magazine and enhanced disk (12 issues) $125.00 

n Sample Magazine and Enhanced Disk 

(October) $19.95 

Enter my subscription for the D Apple D Atari D S-80 
computer. 



Please use facing bind-in card to order. If card is missing, be 
sure to add $1.50 iiandling charge to your order total. 



Canada/Mexico Orders 

No C.O.D. to Canada or Mexico. The prefered method of payment is by Master Card 
or Visa. NO PERSONAL OR COMPANY CHECKS. A bank check is acceptable if it 
has been preprinted for payment in U.S. dollars. The handling charge on all 
Canadian or Mexican orders is $5.00 PLUS actual shipping charges. 

Other Foreign Orders 

Payment must either be by a BANK CHECK drawn on a U.S. bank, payable in U.S. 
dollars or by affiliated bank credit cards of Visa or Master Card. Ail shipping and 
duty charges are the customer's responsibility. All overseas orders are subject to a 
$10.00 handling charge PLUS actual shipping charges. 

Guarantee 

All software is guaranteed to load and run. If you experience difficulties with the 
product within 30 days, the tape or disk may be returned. Call (603) 673-0585 or 
673-0586 for a Return Authorization Number. Any returns without a Return 
Authorization Number clearly marked on the outside WILL BE REFUSED. Send your 
properly protected disk or tape to the attention of Customer Service Representative 
with a note including your name and address. 

Liability 

All software is sold on an as-is basis. SoftSide assumes no liability for loss or 
damage caused or alleged to be caused directly or indirectly by products sold or 
exchanged by them or their distributors, including, but not limited to, any 
interruption in service, loss of business or anticipatory profits or consequential 
damages resulting from use of operation of such software. 

Prices: 

Prices are subject to change without notice. We are not responsible for 
typographical errors. 



_55ft5?a 
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Ever wanted to do things to your TRS-80 that Radio Shacl< 
said couldn't be done? How about reverse video, high 
resolution graphics, a high-speed clock, and audible keystrokes? 

Not enough? How about turning an 8-track into a mass 
storage device, making music, controlling a synthesizer, 
individual reverse characters, and a real-time clock? 

If the thought of using a screwdriver gives you the shivers 
then you can turn to the software section. Learn how to make 
BASIC programs auto-execute, reset memory size, pack 
program lines with machine code, and generate sound effects. 

The Custom TRS-80 and Other Mysteries is packed with page 
after page of practical information, and tested software. Get a 
copy and turn your TRS-80 into a supercomputer. 

#65-238001 B $29.95 

T36JHPROSID6 

6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 

82 SoftSide ( 




BASIC is not nearly as slow as most programmers think. 

BASIC Faster and Better shows you how to supercharge your 
BASIC with 300 pages of fast functions and subroutines. 

You won't find any trivial, poorly designed "check-book 
balancing" programs in this book — it's packed with useful 
programs. 

Tutorial for the beginner, instructive for the advanced, and 
invaluable for the professional, this book doesn't just talk. . . it 
shows how! All routines are also available on disl<, so that you 
can save hours of keyboarding and debugging. 

The #1 disk, BFBDEM, contains all the demonstration 
programs, and #2 BFBLIB, has all the library functions. 

#65-238004B $29.95 

#1 Disk (BFBDEM) 

#25-238005T $19.95 

#2 Disk (BFBLIB) 

#25-238006T $19.95 




T5€:HPIRD5ID€ 



6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 



continued from page 79 

Copy command. 

620 BOSUB 9OOO1POSITIDII 2,30 

822 7 'I.Y of cbtrictir to copy') 

824 INPUT M 

830 IF MILENtADX'O' N AI(L£N(M))> 

•7' THEK 820 

840 POKE 732,liY«VM.IAI(LEN<A»))il>l 

830 IF A«(l,l)<>HEXt(X,I) THEN X'UliI 

F X<17 THEN 830 

860 I«MiIF 1I>1S THEN 820 

870 N«UYtl6 

880 IF K32 THEN H-tH64i6OT0 900 

890 IF IK94 THEN M-H-32 

900 FOR Y-0 TO 7 

910 X*0iC>rEEK(8TARTmill8hl>234 

920 B-i/2iIF Kl THBI970 

930 POSITION t*n,1*iiM*l 

940 IF (C-iXO THEN ? ' 'pBOTO 940 

930 IF (C-l)>^ THEN ? "JjiW-i 

940 BOTO 920 

970 NEXT Y 

980 BOTO 2M 

Error trap. 

990 ? ' INPUT ERROR, RE-ENTE R. 'jBOTO 
3B2 

White command. 

1000 FOR Y>B TO 13iP0BITI0N 27,Y 
1010 ? [ ^jiNIlT YiiBTO 300 

Inverse command. 

1020 FOR Y-B TO ISiFBR X'27 TO 34 

1030 POSITION X,Yt6ET t2,CHiPO8ITI0N I 

.V 

1040 IF CH-32 THEN PUT 12,140 

1050 IF CH-140 THEN PUT 12,32 

1040 NEXT XiNEXT Y18OTO 300 

Erase old messages. 

9000 POKE 7S2,liP08ITI0N 0,20 
9010 ? • -jiPOKE 752,0iRETURN 
9020 REH 5 <E8C><SHIFT><DEliTE>'8 

Download new character set and 
reset modify pointers to -1. 

10000 POKE 104,PEEK(104)-5i6RAPHIC8 
10010 START- (PEEK ( 104) H) 1254 
10020 POKE 754, 8TART/254I POKE 752,1 

10030 ? 'IHITIALI2INB . . .'i? j? '(TA 

KES ABOUT 20 8EC0NN)' 

10040 FOR Z-0 TO 1023 

10030 POKE ZmART,PEEK(Z*37344) 

10040 NEXT ZiFOR Z>0 TO 127 

10070 B(Z)-llN£XT ZiRETURN 

© 




Taping Tutor 




by Roy Groth 

Wish you were a better 
typist, but don't want to 
take (or pay for) a class? 
Teach yourseif to type with 
the aid of your 
microcomputer. With 
Typing Tutor you will be 
quizzed and graded, but 

you set the pace at which you learn. Typing Tutor is a 
set of programs that lets you become as good a typist 
as you wish, allowing you to advance from one level to 
the next when you feel comfortable with your skills. 

Let "hunt and peck" slip into the past, teach 
yourself speed and accuracy on the keyboard with 
Typing Tutor. 

S-80 M06 \ & ill 

16K Tape $19.95 

32K Disl( $20.95 

_5ifection J 1 

6 5outh5tre«t Mllford NH 0305S 




SoftSide October 1981 



S3 



EPSON 100 F/T TYPE II PRINTER 



by D.F. MACY 

Epson has a new printer, the MXlOO 
F/T Type II, an addition to its growing 
line of inexpensive peripherals. I 
received one today and proceeded to 
assemble it. 

There are three ways to handle the 
assembly of any new gadget: 

1. Open the box, remove the what- 
chamacallit and assemble (in case of 
difficulty read the instructions), or 

2. Read the instructions and proceed 
to sHp tab A into slot A, or 

3. Read the instructions and hand 
the entire mess to your kid who will 
assemble it. 

I made the mistake of reading the in- 
structions which fell from the enclosed 
gray book entitled "MX-80 PRINTER 
TYPE II." (Right then I should have 
known something was wrong, but 
sometimes wisdom eludes me.) I 
removed a cable, a long box with 
numbers on it and two carefully 
padded bags. Next came the printer, 
embedded in styrofoam pillows. 
Removing the outer wrappings, I com- 
pared the parts with the instructions. 
Whoever wrote the assembly instruc- 
tions never saw an MX 100 printer. For 
those of you who have, or are planning 
to purchase an MXlOO, I offer this ad- 
vice: Read pages 1-11 of the manual 



and apply common sense. 

Epson, on the sheet accompanying 
the booklet, has printed, "MX-lOO is a 
sister model of MX-80 F/T TYPE II. It 
has greater print width than MX-80 

F/T TYPE II to There's no other 

difference between the two models." 
Horseapples! 

The Epson 100 is 22 inches wide and 
20 inches deep, not including the 
separator and bail. The separator 
snaps onto the tractor assembly, not 
into the printer case. The paper bail is 
in three pieces which assemble into the 
rear of the case. Shipping screws are as 
shown. The printer cover slides from 
the printer in upright position without 
wrestling with the case. To lift the up- 
per case, loosen five screws from the 
top and lift up. The roller knob need 
not be removed. The cartridge ribbon 
is a large scale version of the MX-80. 
Be careful with it. As of this writing, 
Epson does not have a replacement rib- 
bon at any cost. 

Operation of the Epson 100 F/T 
TYPE II is exactly the same as the MX 
80 Friction/Tractor Image Dot Matrix 
Printer. I even used the accessory RS- 
232C plug-in interface ($150) without 
difficulty with my Heath H-8. The 



tractor feed is easily removable for in- 
dividual sheet, word processing ap- 
plications. The MX-lOO will print 136 
characters per line or 233 in the con- 
densed mode on fanfold or sheet 
paper. It will accept paper from four to 
fifteen and one-half inches wide. Paper 
guides have been improved and the 
paper no longer "hangs up." If you in- 
tend to use the printer in the Bit Image 
mode (video pictures), plan for 
816X8-1632X8 dots per line. I cannot 
imagine readers of SoftSide owning 
equipment for converting analog TV 
signals to digital for CRT viewing. Nor 
can I picture any with a program to 
convert these signals to eventual com- 
posite printout. (We have, at Softside, 
one individual who is capable of 
preparing such a program, but Rich 
would need the equipment.) However, 
if there are any of you out there with 
the equipment and ingenuity to pro- 
gram your personal computer, this is 
the printer you will need. 

I have seen better printers than the 
MX-lOO. However, for the money 
($819 from TSE/Hardside), you can't 
beat it. If you are seriously considering 
a large format printer, I recommend 
you try the Epson MX-lOO F/T TYPE 
II. Q 



Pool 1.5 for the Apple II 



IWOVATIVE DESIGS SOFTWARE, I\C 



o 
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The first and only HIRES color graphics 
pool simulation for the Apple II or Apple II 
Plus. 

Requires: 48K Apple II $34^«5" 

with Disk II and Paddles $29.95 



Real-time color HIRES animation 
256 directions for aiming 
4 popular games 

Eight Ball 

Straight Pool 

Rotation 

Nine Ball 
Instant replay for any shot 
Special "slow-motion" control 
Pool 1.5 supports the best 
HIRES animation on the 
Apple today. 
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Potpourri 



THE COMPUTER AND THE HOT 
DOG 



Editor's note: With "The Computer 
and the Hot Dog," we welcome Dean 
Macy to the SoftSide staff. We hope 
you will enjoy his informational and 
witty style. 

by Dean F.H. Macy 

What a marvelous age in which we 
Hve. 

When I first entered the computer 
field, a personal computer was any 
computer which could fit into a single 
room. It's name was IBM 1401, and it 
was the first computer with Random 
Access Memory. Prior to RAM, 
memory was entered and removed in 
sequential form. 

How does SAM (Serial Access 
Memory) compare with RAM (Ran- 
dom Access Memory)? Let's say you 
put a hot dog on a bun, cover it with 
ketchup, mustard, relish, perhaps a 
pickle. You place the whole mess in a 
baggie and put it in temporary storage, 
the refrigerator. Several days later you 
remember it's there, and remove it for 
lunch (or whatever you do with an old 
hot dog). Using SAM you find exactly 
what you entered; a hot dog on a bun, 
covered with ketchup, mustard, relish, 
and perhaps a pickle. Using RAM you 
may find a pickle on a bun covered 
with ketchup and nothing else. During 
the time your hot dog was in storage, 
some ingredients were randomly 
moved to new locations. (Empty 
stomachs perhaps?) The missing items 
could have been replaced with grape 
juice and eggs. (On a bun?) 

The 1401 memory core was a large 
frame filled with iron ferrite cores, 
each about the size of a ring. The 
frames were stacked in huge cabinets 
for easy storage. The larger companies 
had many such cabinet:?, each capable 
of housing nearly 5.(X)0 memory cores. 
(WOW! Just think, a 5K memory, or 
with three cabinets 15K.) 

Now all this may sound like a lesson 
in antiquity; but. in actuality, our pre- 
sent day RAMs do nothing more than 
the original cores so far as memory 
storage is concerned. 

Many years ago it was found that 
when an electric current was applied to 
an iron core, the core became 
magnetized. When the core was 
magnetized, it was on; and when it was 



demagnetized, it was off. (So, the cores 
had two states, on and off.) If we use 
the symbol "1" when the core was on 
and the symbol "0" when the core was 
off, we could use cores to count real 
numbers. Ergo, the binary system 
(base two). 

In the early years of the computer 
era, as in these times, the system most 
used was the BCD (Binary Coded 
Decimal). The early computer used 
what today would be called a four bit 
memory processor; four bits (cores) 
were all that were needed to house one 
computer "word." Let's take a mo- 
ment to analyze a four bit BCD word. 

Remember we talked about "1" 
representing an on state and "0" an 
off state? The four bit core memory 
looked Hke this: 0. Each bit 
represented a number in the decimal 
system with the first, right hand bit 
equahng one, the next two, the next 
four, the next eight. To make this 
easier to understand, I'll put the 
decimal equivalents under the bits. 
0000 
842 1 
If the first and third position bits in the 
memory looked Hke 10 1, this 
equaled a decimal "5." If all bits were 
energized, the decimal equivalent was 
"15." If a decimal "16" is needed, we 
must go the next group of four bits. 
10 =16 decimal; and so it con- 
tinues. 

How do you add using a BCD 
system? Just remember that the largest 
number is "1" and it's quite simple. 
OK, I'll show you one, a hard one, and 
you do some easy ones to get the feel of 
what your computer goes through 
every time you give it an instruction. 
00 11 
+ 0101 



1000 
How'd we do that? Starting with the 
right hand figures, as in normal addi- 
tion, and remembering that 1 is the 
highest number, think this 
through....! -I- 1 =0 and carry the 1. 
1+0=1+ the carried 1=0 and carry 
the 1 . + 1 = 1 + the carried 1 = and 
carry the 1 . + = + the carried 1 = 1. 
Simple, huh? 

No? OK, using the decimal 
equivalents of 8 4 2 1 on top, bits 2 and 
1 on, equals 3. The lower 8 4 2 1, with 
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bits 4 and 1 on, equals 5.5 + 3 = 8.100 
is the BCD equivalent of eight. Now 
you try some. (Get the hang of it and 
WOW your friends, kids, whomever.) 

The year is now 1970. A new type of 
four bit RAM has been designed to 
replace the cores which were unable to 
withstand the great strain over con- 
tinous computer use. Instead of cores 
for memory storage, some genius (I use 
the word with reverence) discovered 
that by proper biasing, transistors 
could be made to turn on or off by ap- 
plication of positive or negative cur- 
rent. 

They called these new-fangled 
devices "FHp-Flops." These circuts 
were etched by special process into a 
substrate we now call a "Chip." These 
chips evolved into IC's (Integrated 
Circuits) of great complexity. So com- 
plex are modern day IC's that what 
used to be housed in a large room now 
fits on your desk with room to spare. 
And what now covers part of your desk 
will soon fit in your pocket. (In a re- 
cent issue of BYTE Magazine the cover 
depicted a Disk-based computer system 
complete with CRT on a man's wrist. I 
shudder at the thought!) 

The RAM's used for storage today 
are called IK or 4K or 16K, the K signi- 
fying "Thousand." A IK RAM con- 
tains 1024 sets of "Flip-Flops" which 
will hold 1024 bits in "On" or "Off" 
states. 

In order not to confuse you, the 
reader, (Hello? Are you still out 
there?) I will confine all future 
references to a simple eight bit RAM, 
the most commonly used personal 
computer "word" length, commonly 
called 1 BYTE. 

OK! We have a personal computer 
up and running with eight bits of 
RAM. (What does one do with eight 
bits of RAM?) The question is, "How- 
does information get into the RAM?" 
There are several methods of transmit- 
ting positive and negative pulses to the 
flip-flops in the RAM; the more com- 
mon types mentioned below. 

"WARNING-DO NOT FOLD, 
STAPLE OR MUTILATE." Sound 
familiar? Our government still uses 
punch cards as checks (i.e. your In- 
come Tax refund). Each card is a com- 
plete file containing information using 
continued on page 87 
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Attend ttie biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 

Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send S5 per person with the name of the show 
you will attend to Natiorial Computer Shows. 
824 Boylston Street. Chestnut Hill. Mass. 02167. 
Ter 617 739 2000. Tickets can also be purchased 
at the show. 









BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 
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11 AM TO 7PM WEEKDAYS 
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Atlanta Civic Center 
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LA Convention Center 
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continued from page 85 

tiny, square holes. A single row 
deciphers into one BYTE (eight bits) of 
inforn\ation. Cards are read by light 
beams and photocells. If light strikes a 
photocell, a bit is turned on. No Hght 
and the bit is off. A similar format is 
punched tape, very popular with 
Western Union, both simple to use and 
abuse. 

After generations of punched cards 
and tapes, users began searching for 
less costly formats. (Did you think 
some squirrel sat around pasting little 
squares back in the holes?) 

Enter the TTY (TELETYPE- 
WRITER)! Let's briefly examine the 
ASR-33 by Teletype Corp.. This device 
offered a seven level ASCII character 
keyboard, a typing unit for hard copy, 
and a paper reader/punch. TTY's 
communicated with each other using 
messages on pre-punched tape. 
(Operators punched keyboard entry 
messages into the paper tape for later, 
high speed transmissions.) The TTY 
was interfaced with a computer using a 
serial code of eleven elements per 
character, in which "0" and "1" were 
called "Space" and "Mark." The first 
element was a "Start" bit followed by 
eight bits of ASCII code, with the final 
two bits used as "Stop" bits. The TTY 
transmits and receives at the outstan- 
ding speed of ten characters per second 
(110 BAUD). (Every once in a while, 
in a tiny town in the back of beyond, a 
LOL still bangs away on an old 
ASR-33, keeping in touch with reahty.) 

We've come a long way since the 
TTY, RTTY, storage drum and hard- 
core disk to the future frontier, the 
LASAR format. Now, in 1981, we are 
still using the magnetic format; reel to 
reel, cassette, stringy floppy and disk. 

Whether you LOAD/DUMP on 
cassette or disk, I will use tape format 
to explain how data is sent to your 
RAM. Tapes are "loaded" using con- 
tinous recording techniques, where 
serial groups of eight bits form 
"characters" or "words." Groups of 
"words" (two to several thousand) 
form "blocks" or "records," and 
groups of "records" (two to several 
hundred) constitute "files ." " Records ' ' 
are separated by "inter-record gaps," 
.5 to 1 inch long. It's at "gaps" that 
your tape unit stops (When it stops at 
all). A typical cassette tape can record 
700,000 characters depending upon 
density (bits per inch/baud rate). 

A tape "block" format includes a 
"start" character which indicates the 
beginning of a "block," "record- 
length" characters which notify the 
computer of the actual number of 
"bytes" in the "record," "load ad- 



dress" characters which provide the 
starting address of the "load," and a 
"checksum" character which contains 
the sum of all "btyes" in the 
"record." As the "record" is loaded 
into the computer, the computer 
counts all character bits and compares 
the result with the "checksum." Unless 
the two are equal, the load is aborted, 
and a "CHECKSUM ERROR" ap- 
pears on the CRT. 

Characters on magnetic tape are not 
"marks" or "spaces," or "I's" and 
"O's." Bits or characters are implanted 
using "frequency modulation." 
(What??) Ever hear of an FM radio? 
Gotcha!! Digital signals are converted 
to one of two frequencies correspond- 
ing to the "0" and "1" values of the 
data. (Bits on tape systems are musical, 
somewhat, and if you carefully play 
your cassette tape on a player you will 
hear "musical data.") 

Keeping the foregoing in mind, we'll 
load a tape into our eight bit personal 
computer. First, a look at the 
"record." Our "record" contains a 
"start bit" followed by a "record 
length bit." (The record length bit = 8.) 
Since our tiny computer always loads 
at the same address, there is no "ad- 
dress bit;" and at the end, a 
"checksum bit." 

OK, load the tape. The computer 



decodes the "music" into "I's" and 
"O's." These are usually loaded into a 
buffer which holds the bits until the 
microprocessor decides where to put 
them. Since our memory consists of an 
eight bit RAM, the bits are loaded in 
sequence. 

Let's explore our RAM. The FM bits 
were coded to read, 00100011 (35 
decimal). If you add, using the 
keyboard, (Can an eight bit computer 
have a keyboard?) a "BCD 8" to your 
RAM, your memory storage would 
read 0010101 1. (Can you decode to 
decimal? Remember each bit 
represents a decimal number; the eight 
bits corresponding to /128/64/32/I6 
/8/4/2/I/.) OK, we're finished and 
ready to dump the contents of our up- 
dated RAM back onto tape. The com- 
puter codes the "I's" and "O's" to 
"musical" tones and a new record is 
created. 

I have attempted to simplify the ex- 
tremely complex workings of the 
LOAD/DUMP cycles of a personal 
computer. I realize I have omitted 
much, but to have included inform- 
ation concerning the many chip func- 
tions, I might have confused my 
readers. If you wish to further under- 
stand the wheeHng-deaHngs of a com- 
puter system, drop me a line, and I'll 
'try to comply. ^ 
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THE TSEHARDSIDE 1 982 MICROCOMPUTER BUYER'S GUIDE 
Is now available! We've included such 
vaiuabie information as print sampiss 
from each of the printers we carry, 
feature-by-feature comparisons of Micro- 
Computer systems in an easy-to-read 
table format, an informative article on 
Micros, and pages and pages of complete 
product descriptions. 

We're malting this vaiuabie reference 
available for only $2.95 (refundable on 
your next purchase from TSE-HARDSIDE.) 
Charge customers are welcome to call our 
toll-free number 1-800-258-1790 (in NH caU 
673-5144) THE TSE-HARDSiDE 1982 
MICRO-COMPUTER BUYER'S GUIDE will 
soon arrive at your address via first class 
mall. 
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TYPE-W-TAL.K IS T.N.T. 

The exciting texMo-speech synthesizer 
that has every computer talking. 



• Unlimited vocabnlary 

• Built-in text-to-speech 
algorithm 

• 70 to 100 blt»«ei>8econd 
speech simtheuier 

TVpe-'N-Talkr an impoitant technological 
advance from Votrax, enables your com- 
puter to talk to you simply and clearly — 
with an unlimited vocabulary. You can 
enjoy the many features of IVpe-'N-Talk,'" 
the new text-to-speech synthesizer. 

You operate Type-'N-Talk'" by simply typ- 
ing English text and a talk command. 
Your typewritten words are automatically 
translated into electronic speech by the 
system's microprocessor-based text-to- 
speech algorithm. 

The endless uses of 
speech synthesis. 

Type-'N-Talk™ adds a whole new world of 
speaking roles to your computer. You can 
program verbal reminders to prompt you 
through a complex routine and make your 
computer announce events. In teaching, 
the computer with Type-'N-Talk '"can 
actually tell students when they're right 
or wrong — even praise a correct answer. 
And of course, Type-'N-Talk'"is great fun 
for computer games. Your games come to 
life with spoken threats of danger, re- 
minders, and praise. Now all computers 
can speak. Make yours one of the first. 

Text-to-speech Is easy. 

English text is automatically translated 
into electronically synthesized speech 
with Type-'N-Talk!" ASCII code from 
your computer's keyboard is fed to 
Type-'N-Talk'"through an RS 232C inter- 
face to generate synthesized speech. 
Just enter English text and hear the verbal 



response (electronic speech) through your 
audio loud speaker. For example: simply 
type the ASCII characters representing 
"h-e-1-l-o" to generate the spoken 
word "heUo." 

TVPE-W-TALK "has Its 

own memory. 

Type-'N-TcJk'"has its own built-in micro- 
processor and a 750 character buffer to hold 
the words you've typed. Even the smallest 
computer can execute programs and speak 
simultaneously. Type-'N-Talk '"doesn't have 
to use your host computer's memory, or tie it 
up with time-consuming text translation. 

Data switching capability 
allows for ONLINE usage. 

Place Type-'N-Talk "between a computer 
or modem and a terminal. Type-'N-Talk" 
can speak all data sent to the terminal 
while online with a computer. Information 
randomly accessed from a data base can 
be verbalized. Using the Type-'N-Talk'" 
data switching capability, the unit can be 
"de-selected" while data is sent to the ter- 
minal and vice-versa — permitting speech 
and visual data to be independently sent 
on a single data channel. 

Selectable features make 
Interfacing versatile. 

Type-'N-Talk'"can be interfaced in several 
ways using special control characters. 
Connect it directly to a computer's serial 
interface. Then a terminal, line printer, or 
additional Type-'N-Talk'"units can be 
connected to the first Type-'N-Talk)" 
eliminatuig the need for additional 
RS-232C ports on your computer. 
Using unit assignment codes, multiple 
Type-'N-Talk "units can be daisy-chained. 
Unit addressing codes allow independent 
control of Type-'N-Talk'" units and 
your printer. 
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TYPE-'1V-TAL.K comes with: 

• Text-to-speech algorithm 

• A one-watt audio amplifier 

• SC-01 speech synthesizer chip (data 
rate: 70 to 100 bits per second) 

• 750 character buffer 

• Data switching capability 

• Selectable data modes for versatile 
interfacing 

• Baud rate (75-9600) 

• Data echo of ASCII characters 

• Phoneme access modes 

• RS 232C interface 

• Complete programming and installation 
instructions 

The Votrax Type-'N-Talk'" is one of the 
easiest-to-program speech synthesizers on 
the market. It uses the least amount of 
memory and it gives you the most flexible 
vocabulary available anywhere. 



Order now. Toll free. 



TERMS: Prices and specifications are subject 
to change. TSE HARDSIDE accepts VISA & 
MASTERCARD. Certified cfiecks and Money 
Orders. Personal cfiecks accepted (takes 3 
weeks to clear). TSE HARDSIDE pays all ship- 
ping charges (within the 48 states) on all 
PREPAID orders over $100.00. On all orders 
under $100 a $2.50 handling charge must be 
added. COD orders accepted (orders over 
$250 require 25%deposit), there is a $5.00 
handling charge. UPS Blue Label and Air 
Freight available at extra cost. 

#09-274001 H $369.00 
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6 South St ,Milfor(J, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




and other ^ 
undesirables ^ 

There are a few bugs in the program 
QUEST 1 published in the August 1981 
issue. The following are corrected lines 
to be typed in place of those appearing 
in print. 

S-80 Version: 

636 IF RC=0 THEN INPUT" IS (S)HE A DMAR 
F"!A$;IF LEFT$(A»,1)="Y' THEN RC=2 



Also, here is an improved arrow firing 
routine sent in by Joe Sewell of 
Melbourne, Florida. It does not suc- 
cumb to the occasional bugs found in 
the S-80 original: 

15700 Ib'mi-l t Yi»Y5»3! V=m2-\ i Y7=W 
Y«3 

15701 IF)(6=X7THENSL=S6N (Y7-Y6) : X8=l(7+1 
iX9»K6+lELSESLP«(Y6-Y7)/(l(6-)[7);IF)(6»( 
7THEN1(8»X6:X9=X7+4ELSEIFX7>X6THEN)(8=X6 
+4i)(9»X7 

15702 Delete this line. 

15705 IFX6=X7THENIFY7<Y6THENY7=Y7+3:Y6 
=Y6-2ELSEIFY7>Y6THENY7xY7-2:Y6»Y6t3 

15706 Y2»Y7;IFABS(MY-Y5)=1THENY2=Y2+S6 
N(SLP)t3 

15707 Y8=Y6:Y9=Y7:Y=YB 

15708 Delete this line. 

15710 F0RX=X8T0X9+. 1STEPSBN(X7-X6) 

15720 SET(X,Y):Y=Y+SLP!lFX9<>X8THENNEX 

TXELSEIFYOY2THENNEXTX 

15750 Y=Y8!F0RX=X8T0X9+.1STEPS6N(X7-X6 

):RESET(X,Y):Y=Y+SLP!lFX9<>X8THENNEXTX 

ELSEIFYOY2THENNEXTX 

Apple Version: 

836 IF RC=0 THEN INPUT' IS (S)HE A DHAR 
F? "iA$:IF LEFTI(A$,1)«'Y" THEN RC=2 
945 Pl= INT((Pl»2+A)/3): IF (P1<«A) TH 
EN 941 
Here is a solution to the "OUT OF 
MEMORY" error, deftly worked out 
by Tom Pollard of Dunstable, Mass. 

15110 Y5=Y5-1: IF Y5<2 THEN RN»R2(RH,1 

): POPi 8QT0 1000 

15210 Y5=Y5+l! IF Y5>22 THEN RH=R2(RH, 

2)! POP: SOTO 1000 

15310 X5»X5+2i IF X5>39 THEN RM«R2IRM, 

3); POP: GOTO 1000 

15410 X5>X5-2: IF XS<1 THEN RN>R2(RH,4 

)i POP: SOTO 1000 

15620 X'RNDd): IF K'l THEN t=X*.\ 




Atari Version: 

836 IF RC=0 THEN ? 'IS (S)HE A DHARF 
lilNPUT A$:IF A$(1,1)='Y" THEN RC«2 
874 SOTO 884 



Also, here is a change suggested by the 
Atari author: 



5025 P0KE106,PEEK(106)^5:SRAPH1CS0:RUN 
20065 ? i? "Mould you like to try agai 
n":? "as a »NEM» character •;; INPUT A« 
:IF A»(1,1)»"Y" THEN 5025 

This eliminates the need for hitting 
(SYSTEM RESET) prior to every RUN 
under normal condition. 



The machine language loader program 
for Divide and Conquer published in 
the June 1981 issue was not the final 
version. To correct this, replace line 
50010 with: 

50010 
P0KE16553,255iP0KE1656i,12e!CLEAR50 

Then delete Unes 50050 thru 50080. 
Note that the previous bug correction 
is still required. 



OOOOPS! Even the BIG BOSS can 
make a small mistake. Due to the little 
known fact that the TRS-80 CLEAR 
statement is limited to a value of 32767 
(negative numbers won't work), in the 
rare case of a person with a 48K 
cassette system, an ?0V ERROR will 
be generated in the program COMPU- 
SKETCH in the AUGUST 1981 issue. 
To remedy this, type in the following: 

100 CLS:CLEAR50:IFNEHt.B>32767THENCLEA 

R32767ELSECLEAR(HENt.8) 

102 N»FRE(A«)/900:DEFINTD-K!DINP((12,N 

) 

In the listing of the Atari version of 
"Battlefield" (August, 1981), a couple 
of characters were dropped from the 
end of line 11000. The line should read 
as follows: 



!iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiil 

FLOPPY DISK 
DIAGNOSTIC 




11000 IF CP(CC,CR)<>PL THEN N6>0 



o 
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Now includes memory 
diagnostic at the same price 



The best and most complete diagnostic 
you can buy to verify disk drive reliability 
and find problems. Displays 19 error 
messages and cross references them 
to 14 possible causes. Continuous 
test option for exhaustive testing 
keeps statistical record of all errors 
found. 



• 35 or 40 track In same program 

• Tests controller functions and 
status bits 

• Tests drive speed and allows 

adjustment 

• Tests switches and mechanical 

components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read 

tests using all possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cylinder interference 

• Tests drive-to-drive compatibility 

Supplied on diskette with manual for 
only £24:95. $22.50 (Model I only) 
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APPLE II USER'S GUIDE 



POOL 1.5 



by Lon Poole with Martin McNiff and 
Steven Cook. (Osborne/McGraw-Hill, 
385 pages, paperback) suggested retail 
price: $15.00 

Reviewed by Jon Voskuil 

This book is truly a user's guide: It 
guides you, step by step, through 
nearly every aspect of using your Apple 
n. Its only assumptions are that you 
have your system connected according 
to the instructions supplied with the 
various components, and that you are 
a person of at least average intelligence 
who wants to learn all about your 
computer. Although it progresses 
eventually into some fairly 
sophisticated discussions and 
programming techniques, a total 
neophyte should have little prob- 
lem picking up the book and working 
his way through it. It would be a good 
book to bring home with your Apple 
the day you buy it, or to go back and 
buy when you get bored with running 
canned programs and want to get into 
the "hard" stuff. 

The chapter titles give the overall 
organization of the book: 

1 . Presenting the Apple II 

2. How to Operate the Apple II 

3. Programming in BASIC 

4. Advanced BASIC programming 

5. The Disk II 

6. Graphics and Sound 

7. Machine Language Monitor 

8. Compendium of BASIC 
Statements and Functions 

Following these are twelve appendices 
which provide a lot of good quick- 
reference material on functions, 
editing, errors, PEEKs and POKEs, 
memory usage, and the like. A fairly 
comprehensive (seven-page) index fills 
out the rest of the 385 pages. 

The overall quality of the writing is 
very good. Explanations are clear and 
logically ordered. A number of black- 
and-white photographs grace the first 
two chapters and chapter five, pic- 
turing the system components and 
interconnections. There are almost no 
diagrams or sketches in the rest of the 
book, but I didn't feel that any were 
needed. The authors make good use of 
charts and tables throughout, and 
include many sample program hstings 
and printouts to assist in understand- 
90 



ing the text. The typeface is easy to 
read, and the pages have a pleasing 
appearance. Only two errors caught 
my eye: one on page 40 where "dollar 
sign ($)" should be replaced by 
"question mark (?)" as the 
abbreviation for PRINT, and one on 
page 156 where a table of Applesoft 
commands should be headed 
"Deferred Mode Only" rather than 
"Immediate Mode Only." 




The book does not talk down to the 
reader; neither does it lapse into jargon 
which would leave the uninitiated 
feeling confused and irritated. (The 
only irritation I experienced was with 
the use of "data" as a singular noun — 
alas, an all-but-universal phenomenon 
in recent writing.) While tackling new 
material one step at a time, the authors 
do not hesitate to delve into the finer 
points of a topic when they need to do 
so. They do not assume that the reader 
wants to "skip over the hard stuff," 
and they do a commendable job of 
presenting occasionally difficult 
material in an understandable way. 

This is the only book I've seen that 
can stand alone as a complete 
introduction to the Apple II. Since it is 
system-specific, you don't have to sort 
through material which does not apply 
to your system (a plus for the 
beginner), and it covers all the Apple's 
graphics and sound capabilities. I can't 
help but recommend it. 
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from Innovative Design Software, Inc. 
Apple II or II Plus, 48K and disk drive 
Suggested retail price: $34.95 

Reviewed by Rich Bouchard 



The documentation for Pool 1.5 
calls it "...one of the finest HIRES 
animated graphics games ever written 
for the Apple II." Pool 1.5 lives up to 
the description. This simulation comes 
as close to the "real thing" as possible. 
The program is written entirely in 
machine language and uses full-color 
high-resolution graphics. The graphics 
and sound effects are extremely well 
done and remarkably life-like. Great 
attention is given to making the table 
look realistic: The bumpers are green; 
the cue ball is white; and the playing 
balls are either red, or blue with a white 
stripe. The balls can also be displayed 
as white with black numerals to play 
other games. 

The realism extends into the play of 
the game as well. When you scratch, 
you have the option of returning any 
pocketed balls, and the cue ball is 
repositioned by the other player, as in 
real pool. If you try to position it il- 
legally, a warning tone will be heard, 
although the ball can still be shot from 
the illegal position. The interaction of 
the balls themselves is very realistic. 
Striking pockets off center or striking a 
corner pocket parallel to a bumper can 
cause a ball to bounce back out. 
Replaying the shot at a slightly slower 
speed may allow the ball to be sunk. 
This program also does a very good job 
of simulating the physics of pool. For 
example, when a moving ball with no 
English on it strikes a stationary ball, 
all the energy is transfered to the sta- 
tionary ball. If the cue ball strikes 
several balls in a line that are touching, 
only the end ball wil be affected. 

Pool 1.5 allows up to four players, 
and plays four variations of pool: 
Eight Ball, Rotation, Straight Pool and 
Nine Ball. Straight Pool is the simplest 
game; turns rotate among the players 
until all the balls are sunk. As long as a 
player sinks a ball, he may continue to 
shoot; otherwise, play is passed to the 
next player. After all the balls have 
been sunk, the player who pocketed the 
most balls wins the game. 



In Eight Ball — basically a two- 
player game — each player tries to 
pocket his group of "high balls" 
(9-ball through 15-ball) or "low balls" 
(1-ball through 7-ball). The first ball 
sunk determines which group of balls 
belongs to which player. After a player 
has legally pocketed all the balls in his 
group, he then shoots at the eight ball. 
While shooting at the eight ball, a 
player loses if he scratches. As in real 
Eight Ball, the player also loses if he 
sinks the eight ball before all of his 
other balls have been sunk. 

In Rotation, the cue ball must strike 
the lowest numbered ball on the table 
before it hits any others. If this is done, 
the player gets points for every ball 
pocketed on the shot. The number of 
points is equal to the number of the 
ball. A miss, or failure to strike the ob- 
ject ball, passes play to the next player. 
If balls are pocketed illegally, the pro- 
gram provides a chance to return them 
to the table. 

Nine Ball, the last variation of pool 
supported by this program, is similar 
to Rotation, except that only nine balls 
are on the table. One point is scored 
each time the nine ball is sunk, and the 
nine ball is returned to the table. All 
the other rules of Rotation apply. This 
game is very challenging, in that it 
forces the player to try some interesting 
combination shots to score well. 

You aim your shot using a paddle 
control. A "ghost ball" is displayed 
showing the trajectory that your shot 
will take, as well as how the cue ball 
will strike the object ball. You can set 
the force with which you will hit the 
cue ball; the lowest setting is a nudge, 
while the highest is the type of hit that 
often results in balls on the floor in real 
pool. You can also add English to your 
shot: You can hit the cue ball high or 
low, to the left or right (or a combin- 
ation of those two), or dead center. 
With practice, you can use combin- 
ations of aim, force and English to 
become proficient in sinking shots that 
would make Minnesota Fats envious. 

The game has a number of useful 
commands which can be used during a 
game. You can set the speed with 
which the balls move, as well as the 
amount of friction (or rate at which the 
balls decelerate). The lowest friction 
setting, according to the program 
documentation, is "...like playing on a 
table with no cloth." Breaking, with 
the lowest friction and the highest 
speed settings, rapidly causes many of 
the balls to fly around the table, and 
will usually sink most, if not all, of the 
balls before motion finally comes to a 
halt. There is also a feature that reposi- 
tions the balls to their locations before 



the last shot, and allows a replay of 
that shot. 

One must look very hard to find 
anything wrong with this program. The 
one thing I noticed it lacked was the 
ability to position the playing balls to 
set up trick shots and the like. But this 
is really quite minor. With all the op- 
tions and variations allowed, there is 
more than enough variety to keep one 
from hungering for more features. 

This program is one of the most en- 
joyable I have ever seen or played, and 
is a game that will long remain one of 
your favorites. The suggested retail 
price of $34.95 may seem a little steep, 
but the game is well worth it. Beware, 
this game may produce a hard-to-resist 
"one more game" compulsion. 



FIRST AUDITION FOR 
"ORCHESTRA 80" 

from Software Affair, 858 Rubis 
Drive, Sannyvale, CA, 94087. 
S-80 hardware/software package. Sug- 
gested retail price: $80. 

Reviewed by Robb Murray 

Editor's Note: At press time, SoftSide 
discovered an expanded version of tlie 
"Orciiestra 80" iiad been made 
available. Watch for a review of "Or- 
chestra 85" in our November issue. 

Overture 

"ORCHESTRA 80" allows the user 
to both code and play first-rate music. 
Its appearance on the market is part of 
what is unquestionably a major ad- 
vance in the democratization of com- 
posing. 

The precision and reliability of com- 
puter processing have never been more 
justifiably or nobly invoked than in the 
performance of music by the com- 
puter. Until recently, however, 
computer-produced music has only 
been possible through the use of very 
expensive equipment and complex pro- 
gramming routines. 

Here's how it works: First, the user 
loads a compiler program into main 
storage. This step sets up the system 
both for playing pre-existing code and 
for receiving new or changing old code. 
If the user wishes to play music, he 
runs a file of coded symbols through 
the processor. As this happens, output 
from the job is produced in the form of 
electrical signals. The signals flow 
through a digital/analog converter at- 
tached to the side port on the expan- 
sion interface (or, on the 16K S-80, to 
the port in back of the keyboard). 

The attachable converter changes the 
raw electrical signals it receives into 
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electrical frequencies which, in turn, 
are amplified and drive a speaker (both 
the amp and speaker system are user- 
supplied). If the user wants to code 
music, he enters edit mode and begins 
to write a new file of code, or change a 
file already present. When finished, he 
compiles and stores the result, ready 
for playing. 

What does "Orchestra 80" sound 
like? Well, for openers, the system 
does produce good musical sounds; 
surprisingly good ones in fact. Timing 
is precise, and tone color is pleasing. 
"Orchestra 80" will play up to four 
simultaneous voices over a six-octave 
range. 

Fanfare 

The value of "Orchestra 80" will de- 
pend on the user's motivation and 
musical background, but several uses 
for the system are apparent. 

First, "Orchestra 80" allows you to 
play pre-coded music. Over a hundred 
musical renditions for "Orchestra 80" 
are already available, ranging from 
Bach to Stevie Wonder. Many bulletin 
boards offer local contributions; a 
board in Connecticut presented 
Christmas tunes a year ago. 

Used in this way, "Orchestra 80" 
functions like a digital player piano. If 
this were all it could do, "Orchestra 
80" would be a fabulous novelty item 
(player pianos are fun!); but it offers 
more. 

Because the code that is played can 
actually be scanned and edited by the 
user, even the non-composer can make 
experimental changes to "canned" 
music. This feature makes it possible to 
play with coded music as though it 
were silly putty — bending, stretching, 
compressing, and molding it into a 
custom-made version of the musical 
work in hand. Just imagine a sixty- 
second Mahler's First Symphony, or a 
two-hour Minute Waltz. Learn "Or- 
chestra 80" coding and imagine no 
more! 

"Orchestra 80" enables you to 
transcribe standard music to computer- 
playable format. This process may of- 
fer untold rewards to the person who 
can't play an instrument (or can't play 
well), yet still longs to "play" favorite 
pieces for himself. 

"Orchestra 80" can function as a 
working tool for the composer. It 
allows music to be tested, changed, and 
played at any speed. It is more than a 
compositional aid; it is also a mind- 
bending new performance medium 
which offers new freedoms and 
strengths to the composer. The limita- 
tions of traditional performance 
technique such as keyboard reach, 
continued on next page 
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continued from previous page 

vocal range, or ease of bowing are no 
longer at issue. If you can code it, the 
computer can play it; it's as simple as 
that. 

To an admirable degree, "Orchestra 
80" has set the standard of perfor- 
mance for its inevitable successors. Its 
music is always played nimbly, 
regardless of speed. When it comes to 
pace and precision, this system easily 
outperforms any keyboard musician. It 
never hesitates, stumbles, or tires. 

As many as four voices may sound at 
the same time. Most of the previous 
music systems for the S-80 could play 
one or sometimes two layers of musical 
sound at once. Multiple-voice effects, 
such as Walter Carlos showcased in his 
popular "Switched-On Bach" albums 
of analog synthesis, had to be achieved 
with the aid of a tape recorder and 
multitracking or overdubbing. "Or- 
chestra 80," however, plays up to four 
voices together, in real time. This 
represents a fundamental advance over 
previous systems, and its musical im- 
plications are obvious. With the new 
possibility of four-part counterpoint 
and harmony, most contemporary 
music, not to mention a large part of 
traditional music, has become sud- 
denly and astonishingly accessible to 
the computer musician. 

The coding scheme is simple and 
logical. I learned it in half an hour and, 
in person, could explain it to another 
user in ten minutes (it does help to 
learn it with a friend). To begin a piece, 
the user first writes a few lines of set-up 
code that specify the key, speed of per- 
formance and timbres of the four 
voice-lines to be used. Then the piece 
of music is coded, one measure at a 
time, and within each measure, one 
voice at a time. 

Each note is given a time value and 
pitch value (which may include no- 
tation for accidentals). For example, 
"Q0#" means that a quarter note 
("Q") is to be played at the pitch of 
C-sharp ("0" equals middle C; "0#", 
therefore, equals middle C, sharped). 
The time values of notes may range 
from tied whole notes to sixty-fourth 
notes (the latter may also serve as grace 
notes). Triplets, happily, may be 
coded, and at any speed. 

When all measures have been coded, 
a four-character dummy measure 
signifies the conclusion of the piece or 
movement. 

"Orchestra 80's" music is easy to 
test. For the composer, this feature is 
invaluable. Even before a piece is 
played, it is automatically screened by 
the compiler for certain common 
coding errors. Messages to the user 
show errors and where in the file they 
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occur. The user can then correct them 
and go on. 

During listening sessions, playback 
need not commence at the beginning of 
a piece, but instead can start at any 
chosen point; thus a change made mid- 
way through a long piece can be test- 
played immediately without having to 
suffer through a replay of all prior 
passages. 

Similarly, playing may be inter- 
rupted at any point simply by touching 
the BREAK key. However, once stop- 
ped in midplay, a piece cannot con- 
tinue automatically from that point 
unless a break-point has been pre- 
viously set there. 

Another valuable feature is the abili- 
ty to slow playback to a crawl, allow- 
ing one to check the audio output 
against a musical score. 

Tempos are easy to change. The user 
can speed or slow the tempos of entire 
pieces, or of sections, either by chang- 
ing the tempo parameters in the set-up 
code or by pressing certain keys during 
performance. Thus, tempo acceler- 
ations, retardations, and "rubato" 
(combinations of which are used to 
convey interpretative feeling) may be 
either coded into the music itself, or 
created at will during playback. Tempo 
settings are accomplished with tempo- 
dedicated keys and a chart in the in- 
struction manual, relating combin- 
ations of keys to set-up code. 

Transposition from one key to 
another is automatic. It may be 
directed up or down, and appUed to en- 
tire pieces or only sections of them. 
This is achieved by specifying, in the 
set-up code, the number of steps up or 
down needed to reach the pitch level at 
which the music is desired to sound. 
Major/minor transpositions are also 
possible by changing the coded key 
signature according to standard 
musical rules. Each of the four possible 
voices may be individually transposed. 
This allows easy coding, directly from 
the staff of music written in the special 
clefs (alto, tenor, etc.) for scorings of 
band or orchestral instruments. 

"Repeats" save coding time and 
space, much as they do in traditionally 
notated music. Repeats of notes, 
phrases, passages, and entire pieces are 
readily codable. 

Articulation is adjustable. Four 
special symbols paired with designated 
notes allow the user to separate con- 
secutive notes to a greater or lesser 
degree. Normal note-separation is 
"legato" (a somewhat joined sound), 
but the special symbols provide dif- 
ferent qualities of "staccato," in which 
notes are sounded with sharper attacks 
and quicker decays than usual. 

One more nice feature of the system 
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is its price. Other music systems I have 
heard about cost from two to four hun- 
dred dollars. They give you more, but 
they aren't designed for the S-80. 



Blues Tempo 

Accompanying the nice features are 
some disappointments. First, the 
coding scheme doesn't resemble writ- 
ten music. There is usually no vertical 
alignment of notes that sound 
together. This makes it impossible to 
see harmonic relationships. Even sim- 
ple mop-up work on one's composi- 
tions, such as checking for parallel 
fourths, fifths, and octaves, and scan- 
ning for similar (versus contrary) mo- 
tion, is virtually impossible to do while 
working in computer code. Composing 
"at the tube" is out of the question. 

The transcription of music similarly 
requires a painful intermediary step: 
writing out the code by hand before 
entering it into the machine. 

A number of systems now on the 
market make use of a light pen that 
writes directly on a musical staff 
displayed on the tube. This feature 
gives these systems a vital advantage — 
almost without regard to what else they 
may or may not do. However, as far as 
1 know, such an advanced graphics 
capability is not yet available for the 
S-80. 

Dynamic (loud/soft) changes cannot 
be coded. They can only be imposed 
from the outside, by adjusting the 
volume level of the auxiliary speaker 
system. This means that no accenting 
of notes is possible with "Orchestra 
80," nor are crescendos, decrescendos, 
or relatively loud and soft parts or 
passages. No doubt about it; that's 
bad. 

Conspicuous overtone distortion oc- 
curs in the highest octave, though it is 
not unbearable. And, distributed over 
the remaining octaves, there is a faint, 
fuzzy quality that puts the un- 
mistakable stamp of COMPUTER on 
these sounds. 

The codable octave range is limited 
to four octaves. Even though "Or- 
chestra 80" plays six octaves, one can 
actually code only within four. 
Transposition can expand the playing 
range, but, though the user may have 
access to all playable notes during an 
extended performance, only four oc- 
taves are available at any given mo- 
ment. 

Note separations in one part may 
distort the flow of other parts. True 
splitting may not be occurring from an 
engineering standpoint, but the effect 
of voice motion in an inner part (alto 
or tenor, for example) may cause a 
distracting break in the flow of 



soprano and bass sounds. 

Harmonic moments cannot be sus- 
tained during playback. When testing 
code, the user can slow performance to 
a very low speed, but can never quite 
freeze it. "Freezing" would sustain the 
notes being played together indefinite- 
ly, and would be useful for the careful 
scrutiny of coded harmonies. This 
problem is almost the only regard in 
which "Orchestra 80" is not an ideal 
system for testing musical code. A 
choir or orchestra, by contrast, fre- 
quently does hold a sustained note or 
chord during practice so that the close 
analysis of a particular musical mo- 
ment can be made. 

The system cannot be tuned. If a 
user wishes to code an accompaniment 
to a record album or to play a guitar 
along with the computer, it would be 
delightful to be able to tune the com- 
puter up or down a fraction of a step to 
bring it into accord with the other in- 
strument. Alas, this is not a real option 
with "Orchestra 80." 

As is true with so much system 
documentation, the accompanying 
user's manual for "Orchestra 80" is 
long (39 pages) and a little frightening 
at first glance. To make matters worse, 
it is organized from a computer- 
technical, not a musical, standpoint. 
The section that actually teaches how 
to code comes last — the worst place 
for it — and even then it is too long, 
chatty and familiar in style to be conve- 
niently referenced later. More and bet- 
ter headings would begin to improve 
this section. 



Back to Refrain 

I am a Baroque music aficionado 
who likes to write music. My problem 
has always been getting my work 
played. I am a slow sight reader who 
can't do justice to good music on the 
keyboard, even to my own compo- 
sitions. In the past I have gone so far as 
to try to recruit musicians from a 
chamber orchestra who would play 
numbers I have written, but with no 
luck. 

Now I'm using "Orchestra 80," and 
finding musicians is no longer a major 
concern to me. The computer is the 
most precise and untiring of per- 
formers. It is true that once coded, 
digital computer music is "fossilized," 
i.e., neither computer nor user can 
subsequently add any feeling to it. But, 
unlike most musicians, the computer 
won't add any mistakes to it, either; 
and the computer never needs to prac- 
tice. For me, that's a better-than-even 
trade-off, especially where contrapun- 
tal music is concerned. 

The first time I heard a Bach fugue 



played on "Orchestra 80," I kept 
waiting instinctively for the music to 
bog down, or for a mistake of some 
kind. But, no matter how tightly the 
fugal mesh was woven, every note 
came in right on cue, sharp as a pin- 
point. No doubt Bach himself would 
have appreciated the kind of relentless, 
unerring stream of musical sounds that 
"Orchestra 80" can produce. For my 
part, I'm delighted! 

I have a number of friends who, 
knowing a little about music, tried 
writing it, and gave up. They liked the 
idea of composing and thought they 
could do it, but lack of keyboard abili- 
ty always kept them from perfecting 
their musical ideas. "Orchestra 80" 
could have helped them. If you are 
such a person, it might help you. 

Finale 

I want to encourage amateur com- 
posers to take advantage of the 
peculiar structures and freedoms of- 
fered by "Orchestra 80." If you com- 
pose, or would like to, give the system 
a try. If the results are good, publicize 
them on one of the bulletin boards. 

While not the same as totally new 
composition, I would also Hke to hear 
some good, creative examples of 
altered compositions, that is, ar- 
rangements made by changing the 



coded versions of music composed by 
others. It would be especially nice to 
hear some good arrangements created 
by someone with no formal musical 
training. I'm curious to see what some 
grade-school student will produce, as- 
tounding everyone. 

Standards are already being set by 
people such as Roy Niederhoffer, 
whose "Star Wars" is far and away the 
best thing on "Orchestra 80" yet 
released. There is also Bryan Eggers, 
whose transcriptions probe as well as 
anyone's the new potentiaHties offered 
by note-processing via microcomputer. 

But it is now time for users to go 
beyond nearly literal transcriptions 
from the standard pop, classical, and 
novelty repertoires — and on to new, 
original compositions. Personally, I 
have been so excited about "Orchestra 
80" that I have coded a half-hour 
recital of some of my own work. The 
results have been good enough to con- 
vince two Chicago radio stations to air 
the selections. Still greater things are 
possible! 

Computer music has been around 
for years, but never as accessibly. 
Microcomputers are creating historic 
days in music. If you love music, own 
an S-80 and want to make a little 
history, consider buying "Orchestra 
80." ^ 



c>\t Last! 
Orchestra-80 

A TRS-8a" MUSIC SYNTHESIS SYSTEM 



WRITTEN BY JON BOKELMAN 



Turns Any 16K Level II TRS-80 Into A High Quality Musical Instrument 

Tfe Software^ 

A five part machine language program consisting of: 
'9 Digital synttioslzer— produces up to four simultaneous voices in a six-octave range. 

2 Music language compiler— a simple and easy to use language allows you to enter your 
favorite written music in any key or time signature. 

3 Full screen editor— a full function text editor with blinking cursor is provided for easy 
entering and modifying of music programs, 

4 File manager— provides the orderly storing and retrieval of named program files on tape 
or disk. You con even sequence several songs for automatic loading and playing. 
5lnltlall2atlon— this set-up routine allows you to alter the voices, select the standard 
four-voice synthesizer or a special high resolution, three-voice version and choose the 
standard (1.77 MHz) or the enhanced (2,66 MHz) clock rote. 

^fe Hardware^ 

A single 1 V2" by 2" PC board plugs into the exponsion connector on the TRS- 80 keyboard or the 
screen printer connector on the expansion interface. This board contains the electronics 
required to convert the computer output into a high fidelity audio signal. Just plug in the 
board and connect to the aux/tape/tuner input of any audio amplifier. No external power 
supply is required. 

Includes: 

• Tape and disk versions on cassette 

• Completely assembled and tested 
PC board 

• Detailed and complete instruction 
manual 
Sample music programs 



Orchestra-80 

$69.95 
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PEISONM SOFTWA'^E INC. 




The VisiDex^" 
program makes 
it a snap to remem- 
ber anything, and everything, 
you don't want to forget. 

VisiDex imposes no restriaions 
on the format or content of your data. 
So you can file away any kind of in- 
formation you want to: names and ad- 
dresses, important numbers and dates, 
ideas, things-to-do, lists, notes, report 
and memo highlights, stock, tax, and 
personal information. 

And you can retrieve exactly what 
you want, instantly, because VisiDex 
"thinks" the way you do; giving you 
unlimited cross-referencing to help 
you find everything faster 

Its like having "total recall," not 
just for one piece of information, but 
also for every other associated piece 
of data you've filed away 

VisiE)ex gives you unprecedented 
flexibility in the way you can handle 
computerized information — no plan- 
ning, no customizing, no formatting is 
necessary. It's like a big box of blank 
cards. You type in whatever you want 
on a "card." And whatever key ref- 
erence words, phrases, numbers or 
dates you want and file it away Be- 
cause you decide how to cross- 
reference your "cards," VisiDex "re- 
members" the way you do. You just 
give it the key reference you "prob- 
ably" filed it under (like the date, 
or a customer's name, for example). 



Visdex 
#47-204004D 



$199.95 



VisiDex will instantly give you back 
everything you've ever filed away that 
included that particular reference (like 
the notes from your last meeting with 
the customer, the customer's organi- 
zation chart, the customer's personal 
likes, hobbies, birthday, ideas you 
intend to propose to the customer, 
ad infinitum!) 

VisiDex will also print out its 
information as mailing labels, lists, 
memos, or other formats you specify. 
all in alphabetic or numeric order, 
or by date order. VisiDex will watch 
over your calendar, too, and alert you 
to special dates, appointments and 
occurrences. 

Besides these unstruaured fil- 
ing capabilities, VisiDex also gives 
you the ability to struaure the infor- 
mation you'd want filed consistently, 
creating a form with optional built-in 
keywords. That way you can have your 
secretary add or change information 
on these forms, and be assured that 
you get all the information filed 
correctly 

And, like other Personal Software 
programs, VisiDex lets you exchange 
data with other programs. Pass your 
notes and memos to VisiTerm, where 
you can transmit or receive them 
over a phone line conneaed to a co- 
worker's personal computer. That's 
"elearonic mail" in aaion! Or incor- 
porate portions of a VisiCalc analysis 
or estimate into a memo which you've 
filed away 

VisiDex is available for Apple II 
and II Plus personal computers. 

If you don't ever want to forget 
anything important ever again, remem- 
ber to have your Personal Software 
dealer show you all that VisiDex 
can do. 



The Desktop/PIj\N \\™ program gives 
you a fast and easy way to automate 
and organize all your financial 
analysis, budgeting, and business 
planning. 

The program guides you step-by- 
step in easy stages, from the original 
layout of your budget or plan through 
final computerized calculation and 
print-out of a boardroom-quality 
report. It can produce its own line 
charts and bar graphs, too — for 
greater visual clarit)'. 

Complex and frequently used 
financial calculations — even multi-step 
operations u.sing chains of tests and 
formulas — become easier, quicker to 
handle. And Desktop/PLAN II can 
handle very large financial "models," 
itxj. This makes it especially useful for 
consolidation across departmental 
budgets and combining the results of 
identical models into an overall com- 
pany budget with ease and simplicit)'. 

If you currently use timeshared 
financial modeling programs, you'll 
find Desktop/PLAN II familiar and 
easy to use — and no more monthly 
timeshare bills! If you've never done 
financial modeling, Desktop/PLAN li 
can introduce you to an easier and 
more productive way of financial 
planning and budgeting than the 
laborious manual methods of the past. 



SianH ^°"'^ 

^f%J^^ produce a high- 

J 9^^ quality, professionally 

organized print-oui of your plan 
or model with Desktop/PLAN II. The 
format is much like an accountants 
columnar analysis pad — it can be up 
to 18 columns wide or up to 300 rows 
deep. Pagination, headers which carry 
your model's title, and other report 
features are handled automatically by 
the program. 

And Desktop/PLAN II can receive 
information from VisiCalc — an inter- 
change capability giving you greater 
combined usefulness. 

Desktop/PLAN II offers exception- 
ally powerful planning system features 
in a package which operates at your 
desk and at your convenience. 

Desktop/PLAN II is available for 
Apple II and II Plus personal computers. 

Ask your Personal Software dealer 
to demonstrate its planning power for 
your business and financial plans. 



Desktop/Plan II 
#47-204008D $199.95 
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^^^^ ■■ BBP With the 
^g^fl Cl** VisiTerm™ 
%Vl^9P ' program, you and 

W '^^ your personal computer can 

communicate with larger com- 
puters, with other personal computers, 
and send and receive disk file informa- 
tion over the phone. 

You'll be able to tap into time- 
sharing services, newswires, data bases, 
stock reports and more. You'll be 
ab/e to access \'our company's own 
dp computer, if there is one, for data 
entry, proprietary software, and inter- 
nal communications. 



Visi Term 
#47-204003D 



$149.95 
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The VisiCalc 
program is 
the most widely- 
used personal computing 



program in the world today! 
That's because VisiCalc is the 
easiest to use, most versatile way 
for you to "run the numbers" when 
evaluating any financial or business 
decision. 



Visicalc 

#47-2070 lOD 



$199.95 



— r'l^lX/^ The VisiPlot^" 

VB^ilp^B*^^ program adds a 
P^^^ striking new visual 

dimension to all your financial 
analysis, forecasting, budgeting and 
business planning. 

VisiPlot takes all those rows and 
columns of hard-to-grasp numbers 
and automatically turns them into easy- 
to-comprehend charts and graphs, 
right before your eyes. 



Visi Plot 
#47-204001D $179.95 



^ 



TERMS: Prices and specifications are subject to 
change. TSE HARDSIDE accepts VISA & 
MASTERCARD, Certified checks and Money 
Orders. Personal checks accepted (takes 3 weeks 
to clear). TSE HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID 
orders over S100.00. On all orders under $100 a 
$2.50 handling charge must be added. COD orders 
accepted (orders over $250 require 26%deposlt), 
there Is a $5.00 handling charge. UPS Blue Label 
and Air Freight available at extra cost 
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TStl-WRDSIIX 

6 Soutri St .Millord, NH 03055 (603)673-5144 

TOLL FREE OUT-OF-STATE 
1 ■800-258-1 790 



If you want sophisticated trend fore- 
casting and statistical analysis — and 
you know how hard it is to create 
them by hand — you'll want to get 
your hands on the VisiTrend/VisiPlot^' 
program! 

VisiTrend/VisiPlot responds to 
the demanding needs of the sophisfi- 
cated manager, planner, investor, 
analyst, statistician, consultant. You'll 
be able to accomplish more because 
\ou decide on your lime series 
analysis, and VisiTrend/VisiPlot per- 
forms it for you. So you can spend 
your time examining various alterna- 
tives, not figuring them out. 



Visi Trend/Visi Plot 
#47-204002D $259.95 
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by David T. Gray 

Column Calculator is a "word pro- 
cessor for numbers," a number pro- 
cessor designed to be used like a 
calculator. But it can tiandle large 
bloci<s of information as if hiandling 
one number at a time. The worl< 
space can be thougfit of as a large 
matrix with rows and columns much 
lil<e an accountant's spreadsheet. 
Data can be easily entered into col- 
umns; and the columns can then be 
moved around. Columns can be 
overlaid from an existing data file on 
disl<. One column can be added, sub- 
tracted, multiplied, divided, or raised 
to a power of another and the results 
put in another column. Columns can 
be compared to one another. Col- 
umns can be totalled, or set with a 
constant, and any column can be 
sorted, carrying the rest of the col- 
umns with it. A predefined function 
can be defined, thereby preprogram- 
ming the worl<sheet. 

The statistical section provides 
analysis of the data. The analysis in- 
cludes simple statistics, linear 
regression, simple correlation, 
histogram and the T-test. 

The information can be printed out 
on the line-printer in a compressed 
format at any stage in the develop- 
ment of a data base. Thus, it can be 
used as a finished report or as a copy 
of the worksheet to permit the filling 
in of additional data for later entry in- 
to the data base. The data base can 
be saved on disk and recalled at a 
later date for modification or for 
generating a report. Any column in a 
file on disk can be referenced and ad- 
ded to the current worksheet. 

All user communication with Col- 
umn Calculator uses FLASH, the line 
input/editor routine. This enables the 
user to not only key in instructions, 
but to edit errors or data as well. 

S-80, 32K disk $39.95 
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NEC 5520 SpinWriter 

(09-223036H) $3195.00 

NEC 5510 SpinWriter 

(09-223035H) $2795.00 

NEC 5530 SpinWriter 

(09-223037H) $2795.00 

CENTRONICS 737 

(09-256002H) $749.00 

OKIDATA Microline-80 

(09-258001H) $439.00 

OKIDATA Microline-82 

(09-258003H) $579.00 

OKIDATA Microline-83 

(09-258004H) $879.00 

EPSON MX-80 

(09-223038H) $519.00 

EPSON MX-80FT 

(09-223039H) $619.00 

EPSON MX-IOOFT 

(09-223041H) $829.00 

NEC Tractor-Feed Option 

(09-223033H) $249.00 

C.ITOH 25cps Daisey 

(09-259001H) $595.00 

C.ITOH 45cps Daisey 

(09-259002H) $1995.00 

C.ITOH Tractor Option 

(09-259003H) $189.00 

BDT Sheet-Feeder 
(NEC only) Option 

(09-223034H) $1495.00 

Microline-80 or 82 Tractor-feed Option 

(09-250002H) $59.00 

Centronics Zip-Pack Ribbons 

(3-pack) (15-267001S) $15:95 

SpinWriter Mnlti-Strike Ribbons 

(3) (15-223040S) $19.95 



Microline Printer Ribbon 

(3-pack) (15-258006S) $15.95 

EPSON Printer Ribbons 

(2-pack) (15-223042S) $29.95 

RS MOD-I & III Printer 
(02-208015H) Cable 

(26-1401) $29.00 

RS MOD-I & III Printer 

(40-pin) Cable 

(02-208016H) $29.00 

APPLE Parallel Int. & Cable 

(36-pin) (07-223016H) $100.00 

APPLE Parallel Int. & Cable 

(40-pin) (07-208014H) $100.00 

APPLE Asynchronous RS-232C Int 

(07-249002H) $159.00 

ATARI-Macrotronics Print 

(36-pin) Int(06-254001H) $69.95 

ATARI-Macrotronics Print 

(40-pin) Int(06-254002H) $69.95 



TERMS: Prices and specifications are subject to 
change. TSE HARDSIDE accepts VISA & 
MASTERCARD. Certified checks and Money 
Orders. Personal checks accepted (takes 3 weeks 
to clear). TSE HARDSIDE pays all (hipping 
chai\)ei (within tha 48 ttatat) on all PREPAID 
orders ovar $100.00. On all orders under $100 a 
$2.50 handling charge must be added. COD orders 
accepted (orders over $250 require 25# deposit), 
there Is a $5.00 handling charge. UPS Blue Label 
and Air Freight available at extra cost. 




TSeiHPIRDSirX 

14South St.tVlilford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 
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BACK ISSUES 



SOFTSIDES FROM THE PAST 

If yoii like whai rhis i^sue of SoftSWe has to offer, you 
should sL-e wliat's waiting for y<JU in SoftSlde Back issues! You 
may feci iliai vDii'vf misled out on many of oui programs that 
api'-fari.'d before you beeanie a subscriber. It's not too late to 
ill) soriiL'ihintf. about i(. "Vou won't have to miss a thing because 
wc -till ha\i" back issues aviiiiabfc to complete your 
SdfiSUlf library; Bui. order now > as some of our moie popular 



issues are already out of stock and others are dwindling quickly. 

Listed below are all of our past issues with Uieir feature 
article, and the systems they're for. Each iss«e costs S3.00 for 
the magazine only. Those issues marked with an asterisk are 
also available on cassette for S'>.95 or disk tor 114.95. 
.Scpienibei 1081 is the lirst enhanced Disk Version and costs 
$19.95. 



'>&*»«>»|«>A»K:W^»:SS^«i''li'hv'S 'f^'Siif^/V'i^^^.ltfVWV 



Sot'lSide S-SO Kdilioii: 

Oi-ti)bcr 19"S -- Not .Available 

November 1978 "i:nd Zone" 

December 19^8 - "Santa Faravta fcn Finniaccio' 

Manuary 1979 - '■Round the Horn" 

"l-cbruary 1970 — "lorm 1040" 

*March 197V) — "'I'trsonal finance" 

♦.'\piil 1979 — -'Safari" 

*May 1479 — "Dog Star .-Xdventure" 

'Iunel979-- ''Atlantic HaUoon Crossing" ^^ 

Muly 1979 — --.Ml Siar iia-ebail" 

».-\u}!Usl I97tj_ •■M,.iiiio"o" 

Scpu-mber 1979 -- Not \... liable 

♦Ckioher 1979 -■ •'\Ve»i\\.i:d 1847" 

.No^embei 1979 — Noi A-. ailable 

*r)eeeinhei 1979 — "Oil I'.aron" 

"Januaiy )9S0 -M.- i.e Maze" 

February 19S0 \,- v. nlable 

"March I9N0 . ••|ii,.,ij.\a\" 

April 1980 — Not Available 

*May 1980— "Star Trek" 

*.Iune 1980 — "Micro Milliqnaij-g', 

*.Iuly 1980 — Adventure IsliP** 



PROG 80 (S-80 only) ^If^ ^^ ^iilliil 

March 1979 — Not Available '''li..i|iiiW''ir 

May 1979 — "Clock Routines,^:!" ill ■11 

,Jiil> 1979 - "Histogram and BASIC Statistics" 

Sepiembet 1979 — "DOS-How to stop lost data errors" 

December 1979 -i- "C0fhputer;Telephoie ©iaiihg" ■ i 

February 1980 — "Hexmem" 

April 1980 — "Redefining Level II Keyboard" 

June 1980 — "Z-80 Disa.ssembler" 

August 1980 — "Varlist"-A program to list variables 

SoftSide: Apple Edition 

*January 1980 — "Dog Star Adventure" 
♦February 1980 — "Connection" 
*March 1980— "Treasure Hunt" 
*April 1980 — "Jig-Saw" 
*May 1980 -- "Invaders" 
June 1980 — Not Available 
*July 1980 — "Pork Band" 

SoftSide: Apple, .A,(ari and S-80 C^ombined Edition 

♦August 1980 — "Caribbean Cruising" — Apple 

"Master's Golf" —Atari 

"Sailplane" — S-80 
September 1980 — Not Available 
♦October 1980 — "Developing Data Base 11" — All Three 

"Moonlanding" — Apple 

"World Series" — Atari 

"Harth-Port 11" —S-80 



Yjsi- nwy.5*^s J wkjw*- . 



♦November 1980 — "Developing Data Base 01" — All Three 

"Collision" — .Apple 

"Trench" — Atari 

"Kriegspiel" - S-80 
■^Decembei 1980 — "Developing Data Base IV" — All three 

"Baseball" — Apple 

"Speedello" — Ataii 

"Kidnapped" — S-80 
♦January 1981 — "Developing Data Base V" — All three 

"Convoy" —• Apple and S-80 

"Angle Cannon" — Atari 

"Ship Destroyer" — S-80 
♦February 1981 — "Developing Data Ba.se Vl" — All three 

"Miner" — All three 

"Mini-Golf" — Atari and S-SO 

"Long Distance" — S-80 
♦March 1981 — "Developing Data Base VII" — All three 

"Strategy Strike" — • Apple and S-80 

"Flags" — Atari 

"Volcano" — S-80 
♦April 1981 — "Battle At Sea" — Apple "" 

"Convoy" — Atari 

"Dominoes" — S-80 
ipMay 1981 — "Galaxia" — Apple .^ 

"Dodge", — , Atari 

"Orienteering At .lacque's Coulee" — ^ S-80 
♦June 1981 — "Old Glory" — All three 

"Word-Search Puzzle Generator" — All three 

"Anallist" — iS-gO 
♦July 1981 — "Chemistry Drill" — All three 

"Kidnapped" — Apple and Atari 

"Magic Paper Calculator" — S-80 &:imim-:.::y^ ..-M 
♦August 1981 — "Quest 1" — All three IIHIiliiill 

"Battlefield" — All three IIIIP^*'^^''' ' '*^^^ 

"Compu-Sketch" — S-80 iPW 

♦September 1981 — "Flip-It" — All three '"--'^f ''■''■ :^-M4, 

"Word Challenge" — All three ':^:..''Z^Z'''-.''''-At 

"Exterminate" — S-80 ',I!WMiXSiiM''m 

(Enhanced Disk Version — $19.95) 1 ^s'V ;:">'; V^ 
Use the bind-in card in this issue to order or ^end aJist of II 
the back issues you'd like, with payment of $3.(X) petrfTtagazirie : 
to: 

SohSide Piihlieatioiis 
515 Abbott Drive 
BrooinHll, PA 19008 

For the magazine/media combination, send $9.95 per cassette 
and magazine, or $14.95 per disk and magazine ($19.95 for 
September 1981 1 lo: C, 

SoftSide Piihliesitions 
6 South Streel 
Milford, NH 03055 



First ir 

willaM^e 
you... 



step beyond TRS-80™ entertainment 
software as you know it witli 
diversions thru Envyrn^^, tine new 
bimonthly series. Boot up for the first 
time and you'll be astonished by what 
you find: 

D Experience three scales of 
graphics — tal<e in a long, wide view of 
your Envyrnment™, then step closer 
and still closer to zero in on detail. 

n Travel at your chosen speed — 
when your life depends on escaping, 
sprint. When you want to tal<e a closer 
lool< at your Envyrnment™, stalk. 

Diversions'^'^ intelligence will 
challenge you. Only the Envyrnment^'^ 
knows the location of a black hole, 
whether a bridge will collapse if you're 
carrying too much weight, or which 
walls are really secret entryways. It's 
up to you to uncover the hidden 
mysteries. 

Wait until you discover the 
magnitude of the area open to your 
exploration! diversions'™ maps and 
diagrams are larger than any you've 
experienced. As you approach a 
boundary, your Envyrnment™ may load 
yet another realm from the disk, much 
like the unfolding of a road map. 

After you've examined the features 
that make diversions™ a revolution in 
computer entertainment, then discover 
the thrill of experiencing! Imagine 
yourself commander of the starship 
Enterprise, a paladin on a medievel 
quest, or the pilot of a mission flying 
over the Himalayas. 

Subscribe for a full year and receive 
six Envyrnment^"^ modules with 
diversions thru Envyrn™ the magazine 
— not a manual, but a fullsized 
handbook with history, hints and 
information that will intensify your 
experience of Envyrnment^*^. 

Send $60 for one year (six modules). 
You must have a 48K TRS-80™ Model I 
or III with disk, diversions'"^ thru 
Envyrn'''^, Apple edition, will be 
available late winter, 1982. You may 
want to take advantage of our special 
introductory offer: $20 for the first 
Envyrnment''"'^, Parsec"'"'^, what Star 
Trek has always tried to be. 

Entertainment software will never be 
the samel 




T/M 



■versions 



thru En/krn 



Premiere Issue 
Parsea 
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Send to: 



A 



■ T/V1 

■versions 



thru Ent^i^rn 



6 South Street Milford, NH 03055 

D One year subscription (6 modules), I enclose $60.00 
D Sample Envyrnment™ Only Parsec™ I enclose $20.00 

D MasterCard DVisa 

Card# 

Interbank* Exp. Date 



Name 

Address 

City 

State 

I own a 48K TRS-80™ D Model I D Model III 



-Zip 



TRS-80 is a registered trademark of Tandy Corporation 



TWO NEW GAMES FROM SSI FOR THE 

APPLr 
AMD THE 



TRS-80! 




THETBATTLE OFSHILOH: A brigade- level r.irr i^ 
pitting the Confederate Arnny against Grant's 



.,; :; '-1,1 i '/, , ', ,,• ■MeoftheClvilWar, 
ip:> riiiu union yUliUoatS. 




TIGERS IN Ti-fr^ ^\KAf\!: Ghostlike Nazi Tiger tanhr. and infaiYix,/ r.\Hr;r;|v across the dark, 
frozen forests of the Ardennes against a surprised U.S. force in this division/ reginnent- level 
simulBtion of HitlGr's last desperate attack. 



As part of our demanding standards of excellence, we use mSXBll floppy discs. 

Apple is a registered traclemarl< of Apple Computer Inc TRS-80 is a registered trademark of the Tandy Corporation. 



We know it hasn't been easy 
for you TRS-80® owners to see so 
nnany great made-for-Apple-oniy 
games from SSI pass you by. But 
then, it hasn't been easy for us to 
design games for a 16K cassette 
format good enough to meet our 
critical standards. 

After all. we've got a reputa- 
tion to protect, a reputation in 
strategy gaming for unsurpassed 
sophistication, innovation, realism, 
and playability. 

Well, our designers have been 
hard at work, and we've not only 
met but surmounted the challenge. 
We're delighted to announce two 
historical wargames — deserving 
of the SSI label — for both the 
Apple® and the TRS-80® (16K 
cassette for the TRS-80 Model 1 
and III; 48K disc for Apple II with 
Applesoft ROM card). 

Combining our extensive war- 
game-design experience and superior 
programming techniques, we've 
given a fresh new look and feel to 
these favorite classic battles. 

At $24.95 each for TRS-80 
cassette and $39.95 each for Apple 
disc, these are extraordinary games 
at quite an ordinary price. 

So head on down to your 
local store and check them out 
today! 

VISA and M/C holders can | 
order by calling 800-227-1617, 
ext 335 (toll free). In California, 
call 800-772-3545. ext 335. 

To order by mail, send your 
check to: Strategic Simulations Inc, 
Dept SS-1. 465 Fairchild Drive. . 
Suite 108, Mountain View, ' 

California 94043. 

All our games carry a 14-day 
money-back guarantee. 



T^fT 




